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INTRODUCTION 

With  the  proliferation  of  packages  and  systems  for  computer  based 
statistical  analysis  it  appears  redundant  to  develop  new  packages  or 
expand  existing  ones.  Where  methods  of  analysis  are  well  standardized, 
as  in  most  applications  of  the  general  linear  model,  or  in  experimental 
design,  such  work  would  seem  superfluous. 

Thore  are,  however,  many  methods,  either  complex  or  new, for  which 
efficient  algorithms  are  not  easily  available  and  which,  even  for  the 
details  of  duta  analysis,  roquiro  mathematical  insight.  Careless 
analysis,  in  such  instances,  may  produce  ridiculous  results.  Even  tho 
experienced  statistical  analyst  needs  to  experiment  with  different 
algorithms  in  such  cases.  As  Mervin  Muller  has  said,  "Much  of  data 
analysis  involvos  iterative  processing  using  noil-quantitative  insight 
and  an  artistic  flair  for  looking  at  data,"  (46]  The  availability  of 
an  integrated  mathematical  and  statistical  computer  system  greatly 
facilitates  such  data  analysis.  Examples  of  such  applications  are 
correlational  analysis,  structural  or  factor  analysis,  Bayesian 
inference,  determination  of  confidence  and  tolerance  regions,  estima- 
tion problems  in  stochastic  processes,  non-linear  estimation*  response 
surface  estimation,  calibration  of  instruments,  and  many  others . How- 
ever, the  traditional  packages,  invariably  based  on  design,  least 
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squares,  normal  equations  (and,  very  rarely,  some  graphical  displays), 
are  inadequate  for  such  problems.  | 

lacking  an  integrated  system,  one  might  consider  using  the  algo-  T 

rithmic  packages  and  languages  presently  available  for  mathematical  ) 

analysis.  However,  even  the  most  developed  and  best  documented  units 
(e.g.  APL/360 [251 } provide  only  a quite  primitive  level  of  algorithms, 
not  even  including  that  basic  set  of  routines  (e.g.  those  presented  1 

by  Carnahan,  Luther  and  Wilkes  (14])  which  form  tho  common  stock  of  i 

introductory  courses  in  scientific  computation.  For  example,  many 
polynomial  regression  subroutines  fail  to  use  orthogonal  polynomials 
and  subroutines  for  solving  linear  equations  by  Gaussian  elimination  l 

fail  to  accumulate  double  precision  inner  products.  [36]  In  fact, 
among  the  hundreds  of  available  computer  programs  and  systems  it  is  not  j 

easy  to  find  one  which  is  particularly  well  adapted  for  the  application 

| 

of  exploratory  techniques.  Although  it  is  obvious  that  array  operations 

•t 

aro  crucial,  the  matrix-interpretive  languages  so  often  used  in  computer  j 

systems  aro  not  the  ideal  solution.  An  interactive  systom  based  on  a 
worksheet,  of  which  portions  can  bo  inspected  at  every  singlo  operation,  j 

seems  to  bo  more  promising;  of  course,  matrix  operations  should  be  j 

included  in  sucli  array-manipulative  programs,  CMNITAU  [31,37]  is  a ( 

programming  system  that  is  based  on  the  use  of  such  a data  worksheet.  j 

Its  set  of  commands  can  be  divided  into  two  basic  groups,  One  group  j 

of  commands  can  be  used  to  process  columns  of  data,  while  the  other  j 

i 

group  enables  one  to  handle  analyses  involving  matrix  manipulation, 

Development  of  OMMlTAti  was  initiated  by  Joseph  Hilscnrath  in  the 
early  60*5  at  tho  National  Bureau  of  Standards.  He  saw  OMNI TAB  as  a 
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computational  tool  directed  at  the  user  who  was  accustomed  to  performing 
most  calculations  on  a desk  calculator.  With  the  advent  of  very  inex- 
pensive pocket  calculators,  the  number  of  users  of  this  type  has  become 
larger.  It  enables  such  a person  to  perform  calculations  on  a computer 
very  quickly  and  easily  without  requiring  him  to  also  learn  a complex 
programming  language. 

The  original  version,  which  was  written  for  the  IBM  7094,  is  des- 
cribed in  detail  by  Hilsenrath  et.al.[31]  However,  this  version  was 
written  primarily  in  assembly  language  and  thus  was  machine  dependent. 
Later  it  was  rewritten  in  FORTRAN  and  implemented  on  a UNIVAC  1108. 

This  FORTRAN  version  has  since  been  implemented  on  an  IBM  360,  Burroughs 
5500  and  CDC  6600  [37,38],  The  IBM  360  implementation  was  carried  out 
by  R,  L.  Chamberlain  who  also  wrote  a very  helpful  user's  guide  [37] 
and  an  operating  systems  manual  [15]. 

Since  its  introduction,  OMNITAB  has  been  used  extensively  in  a 
variety  of  fiolds  by  many  different  users,  Applications  can  be  found 
in  molecular  spoctroscopy  [4,39,40,44,45],  agronomy  [13]  and  photo- 
chemistry [9-11]  as  well  as  in  numerous  other  fields.  Most  applica- 
tions, howovor,  involvo  the  use  of  one  of  the  two  commands,  FIT  and 
POLYFIT.  These  two  commands  are  usod  to  obtain  loast  squares  fits  for 
linear  models.  Numerous  applications  of  these  two  commands  can  bo 
found  in  roforonces  10,  22,  23,  2S,  30,  35,  48,  and  59. 

Thoro  have  boon  sovcral  adaptations  of  OMNITAB  to  moot  special 
purposos.  PRECISE  [5],  developed  in  tho  late  60*s,  is  a multiple 
precision  version  which  has  been  used  in  the  preparation  of  tables. 
MINITAB  [50,51,52]  was  developed  in  tho  Statistics  Department  at 
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Pennsylvania  State  University,  It  is  designed  to  help  the  student 
solve  many  of  the  elementary  statistical  problems  by  supplying  him  both 

T 

a worksheet  for  storage  of  data  and  a special  set  of  commands  for  per- 
forming the  calculations.  An  interactive  version  of  OMNITAB  has  been 
developed  at  the  University  of  Texas  at  Austin  for  use  by  psychology 
studonts  [58],  These  last  two  adaptations  were  both  made  in  the  early 
70's. 

Tho  simplicity  of  OMNITAB  commands  as  well  as  the  nature  of  the 
worksheet  suggested  that  an  interactive  version  of  OMNITAB  designed 

! 

especially  for  use  by  statisticians  would  be  helpful.  The  requirements 
for  such  a version  included: 

(1)  Immediate  access  to  the  worksheet  after  performance  of  every 
statomont 

(2)  Availability  of  statistical  distribution  functions. 

(3)  A facility  to  replace  oxisting  commands  in  the  system 

(4)  A facility  which  enables  a statistician  who  knows  only 
FORTRAN  IV  programming  to  add  now  commands  and  to  incorporate 
them  into  tho  system 

(5)  To  permit  execution  in  a limited  region  of  core  (overlays). 

(6)  To  permit  tho  instantaneous  editing  of  data,  and  tho  correc- 
tion of  commands  when  tho  user  makes  a mistake, 

i 

C7)  To  display  all  of  the  commands  used  during  an  entire  work  ’ 

\ 

session  • 

{ 

l 

Tho  purpose  of  this  research  has  boon  to  implement  such  an  interactive  ' 

* 

version  of  OMNITAB  and  to  present  examples  for  the  utilization  of  this 
interactive  unit  in  the  solution  of  statistical  problems,  Aftor  the 


s 


system  became  operational  under  the  Graphics  Monitor  System  [47]  on  the 
IBM  2250  graphics  console  at  the  University  of  Georgia,  its  general 
effectiveness  and  ease  of  operation  was  tested  by  having  it  used  by 
students  in  classes  on  Multivariate  Methods  and  Scientific  Computation 
(STAT  825,  Winter,  1973  & 1974;  STAT  803  and  804,  Fall  1973),  by 
research  workers  in  radioecology  for  the  purpose  of  deciding  on  appro- 
priate kinetic  models,  and  by  several  others,  especially  for  matrix- 
manipulative  purposes. 

Chapter  II  consists  of  a brief  user’s  guide  to  GMNITAB.  Chapter 
III  presents  details  concerning  the  implementation  of  an  interactive 
version  of  OMNITAB  in  the  computing  environment  available  at  the 
University  of  Goorgia.  Many  implementation  problems  were  of  course 
quite  general.  Chapter  IV  describes  several  methods  which  can  bo  usod 
for  increasing  tho  number  of  available  commands  and  includos  examples. 
Chaptor  V presents  a number  of  applications  of  interactive  OMNITAB  in 
solving  various  statistical  problems.  Those  examples  illustrate  how 
interactive  OMNITAB  can  bo  used  in  solving  problems  of  various  types 
and  complexities  by  both  teacher  and  student  and  as  a computational 
tool  by  researchers. 


CHAPTER  II 


INTRODUCTION  TO  OMNITAB 

In  this  chapter  certain  basic  details  will  be  given  regarding  the 
use  of  the  OMNITAB  language.  Details  not  covered  hore  can  be  found  in 
The  OMNITAB  Programming  System;  A Guide  for  Users  by  Jowott  and 
Chamberlain  [37]. 

An  OMNITAB  command  consists  basically  of  two  parts.  The  first 
part  is  a key  word  which  begins  each  command.  These  koy  words  are 
listed  in  Figure  II-l,  and  they  constitute  the  basic  operation  codes. 
Each  key  word  is  limited  to  six  letters.  The  second  part  of  tho 
OMNITAB  command  contains  tho  argument  list  and  any  comments  which  tho 
user  inserts.  It  begins  either  in  position  s«’ven  or  aftor  a blank 
which  follows  a koy  word  of  loss  than  six  loiters.  Comments  are 
ignored  when  a command  is  processed.  For  example,  consider  the  typed 
message; 

ADO  COLUMN  1 TO  COLUMN  2 AND  STORE  THE  RESULTS  IN  COLUMN  3 
ADO  is  the  keyword,  Tho  argument  list  consists  of  the  integers  1,  2 
and  3.  Since  the  remainder  of  the  message  is  comment,  the  typed 
message: 

ADD  1 2 3 

would  produce  identical  results. 

For  each  argument  in  the  argument  list,  two  pieces  of  information 

are  retained.  First,  an  indicator  is  set  to  distinguish  non-integer 
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real  arguments  from  integer  arguments.  Non-integer  real  arguments  are 
generally  used  as  constants  and  integer  arguments  are  generally  used  as 
column  or  row  numbers.  In  addition,  the  value  of  each  argument  is 
retained. 

There  are  several  general  rules  which  determine  the  type  of  argu- 
ment (s)  required  for  a particular  command.  Integer  arguments  are 
generally  used  as  column  or  row  numbers  or  as  dimensions  of  a matrix. 
Real  arguments,  i.e.  constants  containing  a decimal  point,  are  generally 
used  as  constants.  To  illustrate  this  consider  the  following  two 
commands; 

(1}  ADD  1 2 3 and 

(2)  ADD  1,  2 3 

The  first  command  will  cause  the  i’th  element  of  column  one  to  bo 
added  to  the  i’th  element  of  column  two  and  the  result  to  be  stored  as 
the  i'th  element  of  column  threo,  where  i takes  on  the  values  one 
through  NRMAX,  the  number  of  vows  of  data  in  the  columns.  Howover, 
the  second  column  will  eauso  the  constant  1 to  bo  added  to  each  element 
of  column  two  and  tho  results  to  be  stored  in  column  threo. 

There  aro  two  types  of  commands.  Type  I is  tho  column-oriented 
command  such  as  ADD  or  SUB,  Those  commands  perform  certain  operations 
using  either  constants  or  columns  of  values  as  indicated  by  the  type 
of  the  arguments.  The  results  are  always  stored  in  some  column.  Typo 
XI  is  tho  uiatrix-oriontcd  command  such  as  MADD  or  MSUB,  These  commands 
aro  generally  distinguished  from  the  column-oriented  command  by  tho 
prefix  M,  These  commands  cither  create  matrices  or,  in  various  ways, 
manipulate  arrays. 


A further  point  needs  to  be  made  in  regard  to  the  column-oriented 
command.  It  should  be  noted  that,  in  the  graphics  interactive  version, 
oach  column  contains  80  rows.  As  data  are  entered  into  the  worksheet  a 
counter  keeps  track  of  the  number  of  rows  used.  When  a column-oriented 
command  is  used,  the  operations  are  carried  out  down  to  the  last  row 
into  which  data  have  been  entered. 

Asterisks  are  recognized  as  special  characters  by  OMNITAB  and  can 
be  used  in  several  ways.  Throe  or  more  consecutive  asterisks  denote 
“through."  For  example,  1***5  would  be  interpreted  as  1 2 3 4 5, 
Asterisks  also  provide  the  user  with  the  means  for  using  either  data 
from  the  worksheet  or  any  of  five  user  defined  variables,  V,  W,  X,  Y 
and  Z,  as  arguments  in  commands.  To  use  one  of  these  variables  or  a 
workshoot  ontry  as  an  argument  it  is  necessary  to  enclose  the  variable 
or  worksheet  entry  within  asterisks.  Single  asterisks  (*V*  or  *1,10*) 
are  used  to  indicato  a real  argument  while  double  asterisks  (**v**,  or 
**1,10**)  indicato  an  intogor  argument.  For  examplo,  suppose  that  the 
value  of  V is  l.S  and  the  element  in  the  first  row  and  tonth  column  of 
the  worksheet  is  2.6,  The  command: 

ADD  *V*  *1,10*  3 

would  be  equivalent  to  the  command: 

ADD  1.5  2,6  3 

which  would  put  the  constant  4,1  into  all  previously  used  rows  of 
column  3. 

Tho  command: 

ADD  **V**  **1,10**  3 
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would  be  equivalent  to  the  command: 

ADD  1 2 3 

Matrix  commands  begin  with  letter  M.  Matrices  are  referred  to  by 
the  coordinates  of  the  beginning  argument  in  the  worksheet,  and  by  row 
and  column  site.  For  example  MMULT  10  1,  5 BY  3;  16  1,  3 BY  4j  20  1 
(»,  » , and  BY  are  optional)  directs  the  computer  to  take  the  matrix 
beginning  at  (Row  10,  Col  1)  ("coordinate  10,1")  of  the  worksheet  of 

I 

dimension  5 BY  3,  multiply  it  by  a matrix  starting  in  coordinate  (16,1) 

• i 

(16,1),  of  dimension  3 by  4,  and  to  store  the  results  into  locations  ; 

i 

beginning  at  coordinate  (30,1).  j 

i 

Interactive  OMNITAB  is  very  easy  to  learn  to  use.  This  has  been 
demonstrated  repeatedly  by  students  who  have  learned  to  use  it  follow- 
ing a brief  demonstration.  The  opportunity  to  view  results  following 
execution  of  each  command  makos  it  easy  for  tho  user  to  find  out  what 
a command  docs.  To  illustrato  this  oaso,  a description  of  portions  of 
a typical  demonstration  sossion  follows.  In  the  process,  many  commands 
used  frequently  by  the  statistician  will  be  illustrated. 

When  the  user  first  sits  down  at  tho  IBM  2250  console,  he  initial-  I 

I 

ly  presses  one  of  tho  lighted  programmed  function  keys  (PFK's)  (see  ; 

figure  XII-1).  When  tho  system  requests  a response,  he  will  typo  I 

J 

SLINK  0MTAB  and  the  initial  instruction  frame  will  appear.  f 

At  this  point  soveral  sections  of  tho  worksheet  will  bo  displayed  j 

when  tho  user  depresses  lighted  keys  in  the  second  and  third  row  of  I 

* » 

the  PFK  keyboard.  j 

j. 

Each  worksheet  section  will  contain  an  array  of  numbers.  Next  the  * j 

command  ERASE  is  entered.  Then  the  worksheet  sections  viewed  before 
tao  seen  again.  Now  tho  worksheet  sections  contain  nothing  but  zeros. 


i 
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At  this  point  one  is  ready  to  demonstrate  the  usage  of  some 
further  commands.  However,  one  first  must  enter  data  into  the  work- 
sheet. One  command  which  may  be  used  is  GENERATE,  One  might  enter 
GENERATE  l.,,5,50,,l  . This  command  would  generate  values  from  1.  to 
SO.  in  steps  of  ,5  into  column  1.  However  an  error  message  would  appear 
indicating  that  the  command  exceeded  the  dimensions  of  the  worksheet. 
(The  command  requires  99  rows  but  there  are  only  80  rows.)  Next  to  be 
entered  is  GENERATE  l.,.5,25.,l.  This  command  is  executable.  Follow- 
ing execution,  PFK  4,  which  is  used  to  display  section  2 of  the  work- 
sheet, is  pressed  and  in  column  1 can  be  seen  the  vector  (1.0  1,5  2.0 
...  20.5).  Pressing  PFK  10  (to  soc  soction  7 of  the  worksheet)  enables 
tho  user  to  see  that  the  numbers  21.  through  25.  appear  in  rows  41 
through  49  of  column  1 of  tho  worksheet. 

Tho  SF.T  command  can  also  be  used  to  enter  data  into  the  one  column 
of  the  worksheet  as  specified  by  tho  argument.  Tho  two  lines 

SET  2 

1.  2.  3.  S.  9. 

aro  enterod.  After  pi’ossing  PFK  4,  tho  user  sees  tho  vector  (1.  2.  3. 

5.  9.  ) in  rows  1 through  5 of  column  2.  If  the  command  SET  2 3 had 
been  entered  an  error  racssago  would  have  stated  that  there  wore  too 
many  arguments  since  only  ono  argument  can  be  used  with  tho  SET  command. 

Now  tho  user  is  roady  to  try  some  elementary  operations  using 
tho  data  in  those  two  columns.  The  usor  may  wish  to  execute  ADD  12  3, 
By  pressing  PFK  4 ho  will  sco  tho  vector  (2.  3.5  5.  7.5  12.  ) in  rows 
1 through  5 of  column  3.  Rows  6 through  40  of  columns  1 and  3 will  be 
identical  because  tho  addition  is  carried  out  for  rows  1 through  SO. 
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If  the  user  now  decides  that  he  wants  to  restrict  his  work  to  the 
first  four  rows,  he  enters  the  command  RESET  NRMAX  4.  This  has  no 

* 

immediate  affect  on  the  worksheet.  However,  if  the  next  command 
entered  is  ADD  124,  after  pressing  PFK  4,  the  user  sees  that  rows  1 
through  4 of  column  4 now  contain  the  values,  2., 3.5,  5.  and  7.5.  The 
remainder  of  column  4 is  still  filled  with  zeros. 

Noxt  one  might  enter  the  command  ADD  *4,1*  0.  5 . This  means  that 
the  number  in  coordinate  (4,1)  is  added  to  0.  and  the  result  stored 
into  column  5,  Pressing  PFK  4 reveals  that  2.5  now  appears  in  rows  1 

through  4 of  column  5,  These  results  can  be  seen  in  Figure  I I -2. 

Finally  consider  tho  following  series  of  commands: 

READ  1 ***  4 

The  data  to  be  typed  will  be  entered,  row  after  row,  into 
columns  1 through  4 of  the  worksheet. 

Display:  ROW  1 

User:  1,2, 4, 8 

Display:  ROW  2 

User:  1,3,9,27 

Display:  ROW  3 

User;  1,44,16,64 

Display:  ROW  4 

User:  ROW  3 (he  notices  that  ho  made  an  error  in  row  3) 

Display:  ROW  3 j 

User:  1,4,16,64  . -j 

Display:  ROW  4 etc.  ! 

Tho  3 rows  now  appear  in  tho  first  section  of  tho  worksheet  (PFK  4)  j 

DIVIDE  1 2 S 1 

j 

Entries  in  column  1 arc  divided  by  those  in  column  2,  result  is  \ 

stored  in  column  S,  * I 

DIVIDE  1265  j 

i 

This  does  tho  same  thing  as  the  previous  instruction  except  that  1 

each  quotient  (1/2)  is  multiplied  by  tho  entries  in  column  6 before 
being  stored  in  column  5, 


* 

r, 

A 


WORKSHEET  PART  1 


COLUMNS 


1 

2 

3 

4 

5 

1 

1 

1.00000 

1.00000 

2.00000 

2,00000 

2.50000 

1 

2 

1.S0000 

2.00000 

3.50000 

3,50000 

2.50000 

J 

3 

2.00000 

3.00000 

5.00000 

5.00000 

2.50000 

j 

4 

2.50000 

5.00000 

7,50000 

7.50000 

2.50000 

4 

5 

3.00000 

9.00000 

12.0000 

0.0 

0.0 

'1 

;i 

6 

3.50000 

0.0 

3.50000 

0.0 

0.0 

>5 

7 

4.00000 

0.0 

4.00000 

0.0 

0.0 

-1 

j 

8 

4.50000 

0.0 

4,50000 

0,0 

0,0 

K 

9 

5.00000 

0.0 

5.00000 

0.0 

0.0 

.J 

« -j 

10 

5.50000 

0.0 

5.50000 

0.0 

0,0 

' '] 

11 

6.00000 

0.0 

6.00000 

0.0 

0.0 

■f 

12 

6.50000 

0.0 

6,50000 

0,0 

0,0 

-i 

13 

7.00000 

0.0 

7.00000 

0.0 

0.0 

'i 

■; 

14 

7.50000 

0.0 

7,50000 

0.0 

0.0 

15 

8.00000 

0,0 

8.00000  • 

0.0 

0.0 

1 

A 

16 

8.50000 

0.0 

8,50000 

0.0 

0.0 

17 

9.00000 

0.0 

9.00000 

0.0 

0.0 

vj 

18 

9.50000 

0.0 

9,50000 

0.0 

0,0 

j 

19 

10.0000 

0.0 

10.0000 

0.0 

0.0 

? 

20 

10.5000 

0.0 

10.5000 

0.0 

0.0 

4 

? 

Figure  II-2 

Command  Illustrations  (partial  display) 
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M1DENT  10  1 4 (or  MIDENT  10  1 4 BY  4) 

Generate  an  identity  matrix,  starting  in  coordinate  (10,1),  of 
order  4 by  4.  This  example  illustrates  the  flexibility  available 
in  using  the  matrix  commands.  Since  an  identity  matrix  must  be 
sotuare,  only  one  dimension  needs  to  be  specified.  Both  dimensions, 
however,  may  be  used. 

MDEFINE  15  1 4 4 1. 


Generate  a matrix  of  l»s,  starting  in  coordinate  (15,1),  order 
4 by  4. 

MJVDD  10  1 4 4 15  1 15  1 


Add  the  matrix  starting  in  (10,1)  (4  by  4)  to  that  starting  in 
(15,1)  and  store  results  back  into  the  field  starting  at  (15,1). 
If  PFK  4 is  prossed,  the  section  now  contains 


row  15 
row  16 
row  17 
row  18 


col  1 

2 

1 

1 

1 


COl  2 

1 

2 

1 

1 


col  3 

1 

1 

2 

1 


col  4 

1 

1 

1 

2 


MINVERT  15,1  4 10  1 

Invert  the  above  matrix  and  store  the  invorso  into  tho  place  where 
the  identity  matrix  was,  originally.  Instead  of  READY,  the  usual 
mossago  from  tho  computer,  it  will  display  a mossage  that  the 
determinant  is  5. 


M(X'AX)  10  1 4 4 1514420*1 

Take  the  matrix  A from  (10,1)  on  (4  by  4)  and  tho  matrix  X from 
(15,1)  on,  (4  by  4),  perform  tbo  X‘AX  multiplication,  and  storo 
results  starting  at  (20,1). 

GENERATE  1,,  ,005,  1,095  1 

Place  the  numbers  1.,  1.003,  1,1,  ...»  1,095  into  the  first  21 
rows  of  column  1. 

YOEMX  12 

Evaluate  the  normal  c.d.f.  for  each  of  the  entries  in  column  1 
and  storo  tho  result  into  column  2 (section  of  a normal  distri- 
bution. 
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Conversely 

GENERATE  .90,  .005,  .995,  3 

Generate  numbers  .90,  .905,  .91,  ...,  .995  in  column  3. 

YORMP  3 4 

Take  the  percentage  points  of  the  normal  curve  corresponding  to 
each  entry  in  column  3,  and  place  them  into  column  4. 

The  results  of  the  last  commands  appear  in  Figure  II-3. 

These  are  but  a few  of  the  options  available  to  the  user.  He  may 

wish  to  study  the  OMNITAB  manual  but  can  press  key  2 to  see  which 

commands  are  available  in  the  interactive  graphics  version. 

\ 
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WORKSHEET 

PART  1 

COLUMNS 

1 

2 

3 

4 

5 

1 

1,00000 

0.841345 

0,900000 

1.28155 

0.0 

2 

1,00500 

0.842551 

0,905000 

1.31058 

0.0 

3 

1.01000 

0.843752 

0.910000 

1.34075 

0,0 

4 

1.01500 

0.844946 

0.915000 

1.37220 

0.0 

5 

1,02000 

0.846135 

0.920000 

1.40507 

0.0 

6 

1,02500 

0.847317 

0.925000 

1.43953 

0.0 

7 

1.02999 

0.848494 

0.930000 

1.47579 

0.0 

8 

1.03499 

0.849664 

0.935000 

1.51410 

0.0 

9 

1.03999 

0.850828 

0.940000 

1.55477 

0,0 

10 

1.04499 

0.851987 

0.945000 

1.59819 

0.0 

11 

1,04999 

0.853139 

0.950000 

1.64485 

0.0 

12 

1.05499 

0.8542S5 

0.955000 

1.69540 

0.0 

13 

1.05999 

0,855425 

0.960000 

1.75068 

0.0 

14 

1.06499 

0.856560 

0.965000 

1.81191 

0.0 

15 

1.06999 

0,857688 

0.970000 

1.88079 

0.0 

16 

1.07499 

0,858810 

0.975000 

1,95996 

0.0 

17 

1.07999 

0.859926 

0.980000 

2.05375 

0.0 

18 

1.08499 

0.861036 

0.985000 

2.17009 

0.0 

19 

1.08998 

0.862140 

0.990000 

2.32634 

0.0 

20 

1.09500 

0.863241 

0.999000 

2.57582 

0.0 

Figure  11-3 

Illustration  of  several  statistical 
commands  (partial  page) 


, CHAPTER  III 

IMPLEMENTATION 

In  this  chapter,  the  implementation  o£  an  interactive  OMNITAB 
version,  for  use  by  statisticians,  is  described  in  some  detail.  The 
first  section  contains  a discussion  of  the  problems  and  the  approach 
to  solutions.  The  second  section  contains  detailed  documentation. 

A,  PROBLEMS 

At  the  University  of  Georgia  tho  equipment  used  for  interactive 
computer  usage  includes  a graphics  Console  IBM  2250,  attached  to  tho 
IBM  360  Model  65.  It  consists  of  three  parts:  a Cathode  Ray  Tube 
Terminal  which  is  used  to  display  tabular  and  graphical  information, 
a typewriter  koyboard  through  which  data  and  commands  can  bo  entered, 
and  additional  keys,  roferrod  to  as  "programmed  function  keys"  (see 
Figure  III-l),  which  are  usod  by  the  user  to  branch  to  desired  portions 
of  tho  control  program, 

Tho  IBM  2250  is  oporatod  undor  tho  control  of  a monitor  (GMS[47]). 
One  sovoro  limitation  is  tho  restricted  core  available  for  this  system 
(no  more  than  140K) . Tho  extensive  programs  of  tho  interactive 
OMNITAU  systom  had  to  bo  ovor-layod,  and  a structure  had  to  bo  found 
which  would  rainitnizo  tho  number  of  calls  from  one  overlay  to  anothor. 

Wo  adopted  the  structure  diagrumwod  in  Figure  III-2. 


I 1 1 — 

LOOKUP  ASTER  DISPLY 

I 1 T 

NONBLA  PHYCON  VARCON 


.pOOT 

WollKD  COMAND  XEcfuTE  XOMNIT  SETQ  READQ 

T 1 r 

A B C 


— f- 
INPUT 
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T" 
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• 
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f 

K4ULT  KCP  MATRIX  o2sCC  FLIP  LXtS  "oEAUX  RESET  SET 

Figure  III-2 
Overlay  Structure 
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The  worksheet  is  the  central  feature  of  the  interactive  version 
of  OMNITAB.  A user  should  bo  able  to  view  portions  of  it  after  each 
statement.  A typewriter  terminal  would  be  too  slow;  even  telephone- 
connected  CRT  terminals  (c.g.  Tektronix)  would  be  unsatisfactory,  since 
they  perform  display  character-by-character.  By  contrast,  a graphics 
terminal,  such  as  the  IBM  2250,  presents  whole  page  displays  almost 
instantaneously,  and  is  thus  preferable  for  interactive  worksheet 
This  nearly  instantaneous  display  of  the  worksheet  is  one 
\ eason  why  this  interactive  implementation  should  appeal  to  the 
statistician. 

Tho  size  of  tho  worksheet  presented  a problem  which  required  some 
consideration.  In  tho  original  version  of  OMNITAB,  the  worksheet 
consisted  of  101  rows  aud  46  columns.  Later  an  option  was  added  which 
enabled  the  user  to  rosot  tho  dimensions  of  the  worksheet.  In  our 
conversational  adaptation,  variable  dimensions  wore  not  used  since 
programmed  function  keys  were  to  he  utilised  to  display  desired  sections 
of  the  worksheet;  however,  because  of  the  core  limitations,  the  work- 
sheet for  our  interactive  system  was  restricted  to  80  rows  and  30 
columns.  This  is  broken  down  into  12  sections  of  40  rows  and  5 columns 
each.  The  individual  sections  are  addressable  by  12  programmed  func- 
tion keys  (rows  2 and  3 of  tho  keyboard)  in  geometric  analogy  to  tho 
positions  of  those  sections  in  the  overall  worksheet,  thus,  a user  may 
view  any  section  of  the  worksheet  by  depressing  the  appropriate  key. 

The  preparation  of  programs  needed  for  conversation  and  display 
was  facilitated  by  a sot  of  systems  routines  CGMFCr.T[47] . These  sub- 
routines provide  an  interface  between  a FORTRAN  program  and  the  22SO 
display  unit.  Input  mid  Output  was  dispatched  by  calls  to  these 


subroutines  wherever  necessary  in  the  controlling  program. 

Every  programming  language  has  a set  of  words  and/or  symbols 
which  it  recognizes  as  instructions.  As  part  of  the  implementation  of 
GMNITAB  as  an  interactive  language,  it  was  necessary  to  consider  what 
words  would  receive  such  special  recognition.  The  command  set  for  the 
batch-oriented  OMNITAB  consists  of  nearly  two  hundred  such  words. 

Many  of  these  commands  are  not  needed  in  an  interactive  language  and 
consequently  were  not  incorporated  into  the  interactive  OMNITAB  vocab- 
ulary. Other  commands  are  of  no  interest  in  solving  statistical 
problems.  They  also  were  not  incorporated.  A number  of  routines  which 
are  important  for  statisticians  have  been  added.  These  include  eval- 
uation of  standard  distribution  functions  (Normal,  t,  F,  chi-square, 
Gamma,  Beta)  and  matrix  routines  (determinant,  trace).  After  these 
eliminations  and  additions,  the  OMNITAB  command  set  for  interactive 
use  included  about  12S  commands.  A list  of  those  commands  appears  in 
Figure  I 1-1  of  Chapter  II, 

The  general  rnothod  of  entering  commands  is  illustratod  in  Figure 
III-3,  The  text  (up  to  and  excluding  the  word  ERASE)  is  displayed  to 
the  user  after  he  types  $LINK  OMTAB,  - (ALT  5).  The  command  (ERASE) 
is  typed  and  entered  (ALT-5)*  by  the  user.  The  system  responds  to  all 
commands  with  the  two  lines  as  shorn  in  Figure  XII-3,  If  the  user 
indicates  that  the  command  is  correct  ho  deprossos  Key  1,  and  it  will 
then  be  executed.  Otherwise  he  presses  Key  2,  and  the  command  will 
bo  ignorod  and  replaced  by  the  noxt  command  which  is  entered.  Aftor 
execution  of  a command,  the  system  will  indicato  that  it'  is  ready  for 

the  next  command  by  responding  READY  as  shown  in  Figure  III-4.  This 

*In  future  discussions,  "typing"  will  assume  entering  by  the 

ALT-5  keys. 
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OUTPUT  AREA 

THIS  PROGRAM  IS  DESIGNED  TD  ENABLE  YOU  10  USE  OMNI  TAB  COMMANDS  ENTERED 

through  the  typewriter  keyqorrd  directly  in  front  of  you.  to  signal 

COMPLETION  OF  YOUR  COMMAND.  FIRST  DEPRESS  THE  * ALT"  KEY.  RND  WHILE 
HOLDING  IT  DOWN.  QEPRESS  THE  "S”  KEY. 

RT  ANY  TIME  YOU  MAY  LOOK  AT  THE  WORKSHEET  BY  PRESSING  ANY  OF  TWELVE 
PROGRAMMED  FUNCTION  KEYS.  EACH  KEY  WILL  CAUSE  A 4C  BY  5 SECTION  OF  THE 
WORKSHEET  TO  bE  DISPLAYED.  KEYS  4 THROUGH  9 WILL  DISPlAY  THE  FiRST  40 
ROWS  WITH  KEY  4 DISPLAYING  COLUMNS  1 THROUGH  5.  KEY  5 CISPLRYING  COLUMNS 
G THROUGH  10.  ETC*  KEYS  10  THROUGH  15  WILL  LIKEWISE  DISPLAY  THE  LAST 
40  ROWS. 

AFTER  SEEING  A PARTICULAR  SECTION  YOU  MAY  SEE  ANOTHER  SECTION  BY 
PRESSING  ANOTHER  KEY  OR  YOU  MAY  ENTER  MORE  OMNI  TAB  COMHANOS  THROUGH  THE 
TYPEWRITER  KEYBOARD. 

BY  PRESSING  KEY  30  YOU  WILL  RETURN  TO  THIS  DISPLAY.  BY  PRESSING  KEY  31 
YOU  WILL  TERMINATE  THIS  PROGRAM . BY  PRESSING  KEY  3 YOU  WILL  BE  ABLE  TO 
SEE  A DISPLAY  OF  THE  OMNI  TAB  COMMANDS  CURRENTLY  AVAILABLE.  BY  PRESSING 
KEY  2 YOU  WILL  SEE  A LIST  OF  THE  CHN1TA3  COMMANDS  WHICH  YOU  HAVE  ENTERED 
ERASE 

THIS  STATEMENT  IS  TECHNICALLY  CORRECT.  IF  YOU  WISH  TO  HAVE  IT 
EXECUTED  OR  STORED.  PRESS  KEY  J..  OTHERWISE.  PRESS  KEY  2. 


REPLY  AREA 


Figure  II I -3 

Entering  a command  after  seeing  the  initial  display 
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OUTPUT  AREA 

THIS  PROGRAM  IS  DESIGNED  TO  ENABLE  YOU  TO  USE  OMNI  TAD  COMMANDS  ENTERED 
THROUGH  THE  TYPEWRITER  KEYBOARD  DIRECTLY  IN  FRONT  OK  YOU.  TO  SIGNAL 
COMPLETION  OF  YOUR  COMttflNO.  FIRST  DEPRESS  THE  'ALT’  KEY,  RNO  WHILE 
HOLDING  IT  DOWN.  DEPRESS  THE  *5"  KEY. 

AT  ANY  TIME  YOU  HAY  LOOK  AT  THE  WORKSHEET  BY  PRESSING  ANY  OF  TWELVE 
PROGRAHHED  FUNCTION  KEYS-  EACH  KEY  WILL  CAUSE  A 40  BY  S'- SECT  I ON  Or  THE 
WORKSHEET  TO  BE  DISPLAYED.  KEYS  4 THROUGH  9 WILL  DISPLAY  THE  FIRST  40 
ROWS  WITH  KEY  4 DISPLAYING  COLUMNS  I THROUGH  S.  KEY  5 DISPLAYING  COLUMNS 
6 THROUGH  1C.  ETC-  KEYS  1C  THROUGH  15  WILL  LIKEWISE  DISPLAY  THE  LAST 
40  ROUS. 

AFTER  FEEING  A PARTICULAR  SECTION  YOU  HAY  SEE  ANOTHER  SECTION  BY 
PRESSING  ANOTHER  KEY  OR  YOU  MAY  ENTER  MORE  OMNI  TAB  COMMANDS  THROUGH  THE 
TYPEWRITER  KEYBOARD. 

BY  PRESSING  KEY  30  YOU  WILL  RETURN  TO  THIS  DISPLAY.  BY  PRESSING  KEY  31 
YOU  WILL  TERMINATE  THIS  PROGRAM.  BY  PRESSING  KEY  ? YOU  WILL  BE  ABLE  TO 
SEE  A DISPLAY  Or  THE  RnNITAB  COMMANDS  CURRENTLY  AVAILABLE.  BY  PRESSING 
KEY  2 YOU  WILL  SEE  A LIST  OK  THE  OMNITfiB  COMMANDS  WHICH  YOU  HAVE  ENTERED 


ERASE 

READY 


(■ 


REPLY  AREA 


Figure  TH-4 

The  screen  when  a command  can  be  entered 


procedure  gives  the  user  a chance  to  correct  any  typing  errors  which 
he  may  have  made.  The  same  procedure  is  followed  for  most  commands. 

As  each  command  is  entered  and  executed , it  will  appear  at  the 
bottom  of  the  messages  which  already  appear  on  the  screen.  The  screen 
will  only  be  erased  when  it  becomes  full  or  when  one  of  the  programmed 
function  keys  is  used  for  special  messages  (PfK*s  2,  3 and  30)  or 
worksheet  display  (PFK's  4-15). 

The  READ  command  has  several  features  which  should  he  discussed. 
This  command  is  used  to  enter  data  row  by  row  into  columns  designated 
in  the  argument  list  of  the  READ  command.  In  tho  batch  version,  data 
are  usually  available  on  cards  or  tape,  in  sequential  order.  For 
example,  consider  tho  statement 

READ  1***3,  S,  7 

Tho  following  cards  would  oach  contain  one  row  of  data  to  be  placed 
into  columns  1,  2,  3,  5 and  7 of  the  worksheet,  Tho  cards  must  be 
ordered  by  rows  so  that  tho  first  card  in  tho  sequence  contains  row  one, 
etc.  In  our  interactive  environment,  it  must  bo  possible  to  address 
any  row  at  will.  This  was  implemented  as  follows:  When  tho  user  entors 
a READ  statement  tho  system  responds,  as  shown  in  Figure  XII-5,  by 
signalling  that  it  is  ready  to  rocoivo  row  l.  This  eliminates  the 
annoying  problem  of  prossing  key  1 (as  in  other  commands)  after  enter- 
ing oach  lino  of  data  when  many  lines  need  to  bo  entered.  After  data 
for  Row  1 have  boon  entered,  the  computer  demands  ROW  2 (etc.).  If  the 
user  discovers  that  he  has  made  an  error  in  entering  data,  he  may 
veto  tho  request  by  responding  with  ROW  n whore  n is  tho  number  of 
that  row  at  which  ho  wishes  to  moke  the  chango.  The  next  lino  of  data 
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is  then  entered  in  the  designated  row.  The  consequence  of  this  command 
is  the  resetting  of  tho  row  counter.  The  second  line  of  data  would 
enter  the  (n+l)st  row  unless  the  user  indicates  another  row  by  using 
the  ROW  n command  again.  Exit  from  the  read  mode  is  accomplished  by 
entering  any  other  legitimate  OMNITAB  command. 


B.  DOCUMENTATION 

In  the  implementation  of  interactive  OMNITAB,  the  point  of  depart- 
ure was  the  IBM  360  batch  version  developed  by  Chamberlain  [15,37j, 
since,  for  our  purposes,  it  was  more  suitable  than  the  original  NBS 
version[31].  Thoso  subroutines  which  required  extensive  changes,  or 
even  complete  re-writing,  have  been  indicated  by  an  asterisk  (*)  in 
tho  summary  beginning  on  page  35.  Some  entirely  new  subroutines, 
however,  had  to  be  written  especially  for  interactive  OMNITAB.  Preced- 
ing the  summary,  tho  role  played  by  each  of  those  now  subroutines  is 
explained.  In  addition,  some  of  tho  changos  raado  in  oxisting  routines 
will  bo  discussed. 

As  each  command  is  ontored  through  tho  keyboard,  a number  of 
chocks  is  performed  to  determine  if  the  arguments  are  legal.  If  tho 
command  appears  to  bo  executable,  a subroutine  PLBK  is  called,  litis 
subroutine  performs  several  functions.  First  it  writes  the  command 
on  tho  screen  and  tho  message  which  follows  as  shown  in  Figure  IXI-3. 

It  then  awaits  the  user’s  response.  If  tho  user  replies  by  prossing 
key  1,  the  command  will  bo  written  on  a data  set  for  later  recall  if 
desired  and  control  will  return  to  the  subroutine  whore  the  command 
will  be  executed.  If  tho  user  presses  key  2,  control  will  pass  to  the 
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driver  subroutine  where  the  user  can  correct  his  error  and  reenter 
the  command. 

The  subroutine  PRGRAM  is  used  to  display  a listing  of  the  commands 
which  have  been  executed  as  shown  in  Figure  III-6.  It  retrieves  them 
from  the  data  set  on  which  the  subroutine  PLBK  has  written  them.  It 
also  displays  all  the  data  which  have  been  entered  into  the  worksheet 
via  READ  commands. 

The  subroutine  DISPLY  is  used  to  write  the  instructions  which 
appear  in  Figure  III- 7 . This  frame  is  the  first  to  appear  when  the 
user  loads  the  GMNITAB  package  and  briefly  explains  how  to  onter  com- 
mands and  what  the  programmed  function  koys  will  do. 

The  subroutine  KORKD  is  used  to  prosent  the  different  sections  of 
the  worksheet.  Figure  II 1-8  shows  how  a section  is  displayed.  Other 
examples  appear  in  chapter  V, 

The  subroutine  CQMAND  is  usod  to  list  the  commands  currently 
implemented  in  this  version  of  OMNITAB.  If  commands  are  added  or 
taken  out,  this  subroutine  would  have  to  be  changed. 

Finally  the  subroutine  SCRAM  is  used  whon  a large  amount  of  scratch 
area  which  would  not  fit  into  the  core  region  is  noodod;  in  this  case, 
excess  scratch  spaeo  is  provided  on  a disk  as  "virtual  memory." 

There  wore  soveral  typos  of  changes  from  the  IBM  360  batch  version 
[37]  that  had  to  bo  made  in  this  implementation.  Each  will  be  discus- 
sed in  seme  detail.  Many  changes  wore  required  because  this  interactive 
version  utilizes  completely  different  input -output  devices.  A numbor 
of  changes  were  made  to  onubie  the  program  to  run  in  the  limited  amount 
of  core  available.  Finally,  several  changes  were  made  to  achieve  more 
efficient  subprograms. 


28 


OUTPUT  HREfl 

IF  THE  SCREEN  BECOMES  FULL  RN  RLRRH  WILL  SOUND . 
THE  NEXT  SECTION  OF  YOUR  PROGRAM.  PRESS  KEY  2. 

ERASE 

READ  I 2 3 
1 2 3 


8 9 1-5 
ROW  St 


WHEN  YOU  KflNT  TO  SEE 


REPLY  RREA 


Figure  Ill-S 

Listing  of  commands  entered  and  recovered  using  PRGRAM 
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i OUTPUT  AREA 

ITHJS  PROGRAM  IS  DESIGNED  TO  ENABLE  YOU  .TO  USE  Or.f.'JTfiB  COMUPNOS  ENTERED 
THROUGH  THE  TYPEWRITER  KCY30PR0  DIRECTLY  IN  FRONT  OF  YOU.  TO  SIGNAL 
(COMPLETION  OF  YOUR  COMMAND.  FIRST  DEPRES8  THE  ’ALT"  KEY.  AND  WHILE 
HOLDING  IT  DOWN.  DEPRESS  THE  "S'  KEY. 

AT  ANY  TIME  YOU  MAY  LOOK  AT  THE  WORKSHEET  BY  PRESSING  ANY  OF  TWELVE 
PROGRAMMED  FUNCTION  KEYS.  EACH  KEY  WILL  CAUSE  A 40  BY  5 SECTION  OF  THE 
WORKSHEET  TO  dE  DISPLAYED . KEYS  4 THROUGH  S WILL  DISPLAY  THE  FIRST  40 
ROWS  WITH  KEY  4 DISPLAYING  COLUMNS  1 THROUGH  S.  KEY  5 DISPLAYING  COLUMNS 
S THROUGH  10.  ETC.  KEYS  10  THROUGH  15  WILL  LIKEWISE  DISPLAY  THE  LAST 
40  ROWS. 

flFTER  SEEING  A PARTICULAR  SECTION  YOU  MAY  SEE  ANOTHER  SECTION  BY 
PRESSING  ANOTHER  KEY  OR  YOU  MAY  ENTER  MORE  0MN1TAB  COMMANDS  THROUGH  THE 
TYPEWRITER  KEYBOARD. • 

BY  PRESSING  KEY  00  YOU  WILL  RETURN  TO  TMI5  DISPLAY.  BY  PRESSING  KEY  33 
YOU  HILL  TERMINATE  THIS  PROORRM.  BY  PRESSING  KEY  3 YOU  WILL  BE  ABLE  TO 
SEE  A DISPLAY  OF  THE  OMNITAB  COMMANDS  CURRENTLY  AVAILABLE.  BY  PRESSING 
KEY  Z YOU  WILL  SEE  A LIST  OP  THE  OMNITfio  COMMANDS  WHICH  YOU  HAVE  ENTERED 
REAOY 
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i REPLY  AREA 


Figure  111*7 
Basic  Instructions 
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For  the  batch  version  of  OMNITAB,  the  input  device  used  is  gen- 
erally a card  reader.  The  OMNITAB  commands  and  data  are  punched  onto 
cards.  The  OMNITAB  compiler  roads  each  card  and  executes  the  requested 
task  sequentially.  For  the  interactive  version  of  OMNITAB,  the  com- 
mands are  entered  from  the  IBM  2250  keyboard.  Each  instruction  is 
executed  as  it  is  entered.  The  user  can  not  enter  a command  until  the 
previous  one  has  been  executed.  In  addition,  the  user  may  exercise 
several  options  following  the  execution  of  any  command. 

Changes  in  several  subprograms  had  to  be  made  so  that  the  above 
procedure  could  be  used.  In  the  batch  version  of  OMNITAB  input  was 
achieved  with  a call  to  the  subroutine  INPUT.  In  the  interactive 
version,  this  one  CALL  statement  was  replaced  by  thirty-eight  state- 
ments beginning  at  label  52.  (See  Appendix  p.  259)  This  sequonco  of 
statements  performs  the  various  tusks  associated  with  input.  This 
includes  a sequence  to  write  out  the  line  READY  to  inform  tho  user 
that  another  command  may  bo  ontorod  when  this  is  appropriate.  It  also 
includes  a sequence  which  writes  out  tho  row  number  whon  the  user  is 
ontoring  data.  A number  of  statements  are  required  to  handlo  tho 
interrupts  received  from  tho  programmed  function  keys.  Finally  a body 
of  code  was  necessary  to  control  tho  flow  of  tho  program  through  those 
various  options.  In  tho  subroutine  INPUT  it  was  also  necessary  to 
replace  the  !UiAU  statement  by  a call  to  the  subroutine  GRIU'LY  which 
retrieves  a line  entered  from  the  keyboard. 

In  the  batch  version  of  OMNITAB,  output  was  dispatched  to  a 
printer.  Thoro  were  a number  of  commands  which  could  bo  used  for 
obtaining  tho  desired  output  from  tho  program.  In  tho  interactive 
vorsiou  all  of  those  commands  had  to  bo  eliminated.  This  meant  that 


references  to  these  commands  in  LOOKUP  and  OMNIT  had  to  be  eliminated. 
On  the  other  hand  it  was  necessary  to  make  provision  for  retrieving 

intermediate  results  from  the  worksheet.  The  subroutine  WORKD,  discus- 

\ 

sed  in  the  beginning  of  this  section  was  written  to  satisfy  this  need. 

Error  messages  are  related  to  the  problem  of  output.  The  two 
subroutines  ERROR  and  AERR  required  extensive  modification.  In  both 
subroutines  messages  no  longer  necessary  wore  removed  and  new  messages 
had  to  be  provided.  In  both  subroutines  WRITE  statements  could  not  be 
used.  They  were  replaced  by  calls  to  the  subroutine  GRDPLY  which 
writes  lines  on  the  screen.  In  this  interactive  version  only  one  error 
message  can  be  displayed  for  each  command.  A check,  therefore,  had  to 
bo  displayed  for  each  command.  A chock,  therefore,  had  to  be  inserted 
at  the  beginning  of  ERROR  to  prevent  multiple  messages  from  being 
displayed.  For  fatal  errors  this  flag  will  prevont  execution  until  a 
correction  is  mndo.  For  arithmotic  errors,  the  flag  will  prevont 
rocording  of  tho  command  on  tho  temporary  data  sot  used  to  store  a 
record  of  tho  executed  program.  This  is  genorally  dono  following 
oxocution  of  a command,  Thus  it  was  necessary  to  insert  several 
statements  into  ERROR  to  record  tho  command  onto  tho  data  set  at  this 
point.  For  informative  diagnostics,  the  user  may  choose  to  override 
tho  flag  and  have  tho  command  executed.  Several  more  statements  had 
to  bo  added  to  ERROR  to  provide  tho  user  with  this  option. 

Tho  core  limitation  has  been  mentioned  previously  in  connection 
with  tho  worksheet  size.  Ooeouso  of  this  limitation,  a number  of 
changes  had  to  bo  made  in  several  subprograms.  In  the  batch  version 
of  0NNITA8  a fairly  largo  scratch  aroa  was  available  in  core  for 
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storing  intermediate  results  for  such  commands  as  matrix  inversion. 

In  the  interactive  version  a small  scratch  area  capable  of  holding 
a full  column  of  data  was  retained  in  core  and  the  subroutine  SCRAM 
was  written,  which  extends  the  scratch  area  to  disk,  for  use  when  a 
larger  area  is  needed.  Those  subroutines  which  had  to  be  extensively 
modified  for  this  reason  are  INVCHK,  INVERT,  MATRIX,  MDAMAD,  MMULT, 
MOVE,  MXTX,  SPINV  and  TRANSF. 

The  subroutines  INVCHK,  INVERT  and  SPINV  are  used  for  matrix 
inversion.  The  problems  caused  by  a lack  of  scratch  area  wore  most 
pronounced  in  these  subprograms.  In  INVCHK,  an  orror  bound  was  calcu- 
latod  and  supplied  to  tho  user  whonev/r  ho  inverted  a matrix.  In  the 
interactive  version,  the  determinant  of  a matrix  was  displayed  instead, 
as  statisticians  need  it  from  time  to  tiao  and  precision  can  bo  easily 
chockod  by  reinvorsion  when  necessary.  As  a consequence,  tho  section 
in  INVCHK  which  calculated  the  orror  bound  was  removed  and  a number  of 
statements  wore  added  to  SPINV  to  calculate  the  determinant. 

Several  examples  of  changes  made  to  achieve  a greater  officioncy 
will  be  discussed  here.  It  should  bo  pointed  out  that  tho  developer's 
of  OMNITAB  made  an  effort  to  use  algoxltlims  which  would  provide  the 
user  with  a relatively  high  degree  of  precision.  An  examp lo  of  this 
is  tho  use  of  Walsh's  orthononaalizing  algorithm,  0UTH0(3, 10,20,21  ,ol I , 
This  provided  a very  good  matrix  inversion  routine  [43 ,62 , 63 J.  Per 
this  reason,  minor  changes  only  wero  aado. 

In  tho  subroutines  ARXTH  and  PUNCT,  several  computed  GO  TO  state- 
ments wore  used  to  repeatedly  branch  to  the  section  of  the  program 
whore  a given  operation  is  performed.  Those  computed  GO  TO  statements 
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were  replaced  by  assigned  GO  TO  statements.  Several  other  changes,  such 
as  the  insertion  of  ASSIGN  statements,  were  associated  with  this  change. 

In  the  subroutine  TRANSF  which  is  used  for  the  matrix  operations 

\ 

XAX'  and  X'AX,  the  multiplication  is  performed  in  one  step.  A much  more 
efficient  method  is  to  perform  two  matrix  multiplication  steps.  This 
required  rewriting  an  entire  section  of  TRANSF.  The  same  section  also 
had  to  be  changed  because  of  the  reduction  in  scratch  area  discussed 
earlier. 

Two  other  subroutines  which  required  oxtensive  modification  were 
LOOKUP  and  XECUTE.  LOOKUP  determines  if  a given  command  is  legitimate. 
Sinco  many  commands  were  added  and  others  were  removed,  changes  noedod 
to  bo  made  to  reflect  this.  Similarly,  XECUTE,  which  is  used  to  pass 
control  to  the  subroutine  appropriate  to  a given  command,  had  to  bo 
changed  to  reflect  the  additions  to  and  deletions  from  the  set  of 
commands. 

Tho  documentation  which  appears  at  the  end  of  this  chapter  provides 
information  concerning  all  subprograms  which  hnvo  been  modified  in  any 
way.  Sinco  there  does  not  seem  to  bo  detailed  documentation  of  those 
programs  in  their  original  version  (5,131,  tho  description  given  in 
this  section  is  as  self-contained  as  possible,  and  not  restricted  to  a 
description  of  changes  necessary  for  adaptation  to  interactive  statis- 
tical use,  Tho  information  provided  includes  a statement  of  purpose  of 
each  routine,  the  COMMON  block  variables  used,  and  a brief  trace  of  the 
program  logic.  It  should  be  read  in  conduction with  the  listing  of  tho 
routine  (See  Appendix,).  It  is  hoped  that  this  description  will  prove 
helpful  in  making  similar  adaptations  elsewhere.  Documentation  of  the 
statistical  distribution  subprograms  can  bo  found  in  Bouvcr  (5).  Since 
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the  documentation  is  arranged: alphabetically,  it  is  desirable  first  to 
describe  briefly  the  purposes,  of  the  documented  subprograms  in  accord- 
ance with  the  various  typos  of  functions  which  the  subprograms  serve. 

There  is  a very  short  MAIN*  program  which  opens  and  closes  files, 
initializes  the  Graphics  Monitor  System  and  calls  OMNIT*.  OMNIT*  is 
the  principal  subroutine  and  controls  execution  of  the  user's  commands. 
The  subroutine  X0MN1T*,  called  by  OMNIT*,  initializes  several  variables 
to  values  which  indicate  the  beginning  of  a user's  session. 

A number  of  subprograms  are  used  for  translating  the  user's  command 
into  a form  which  can  be  used  for  execution  of  the  command;  (this  is 
discussed  in  greater  detail  in  Chapter  IV);  INPUT*  picks  up  the  line 
entered  in  the  reply  area  of  the  CRT.  OMCONV*  converts  the  entered 
character  string  into  a numerical  code.  NNAME  converts  the  keyword 
into  two  numerical  values  which  uniquely  identify  the  command.  NONBLA 
is  used  in  scanning  the  line  to  find  non-blank  characters.  AARGS*  is 
used  to  convert  a string  of  digits  into  the  appropriate  number.  When- 
ever asterisks  are 'encountered,  ASTER  is  used  to  obtain  information 
needed  to  finally  obtain  the  indicated  argument (s) . ASTER  will  call 
PHYCON*  and  VARCCN  if  a name  appears  within  asterisks.  Those  subrou- 
tines identify  legitimate  names  as  oithor  physical  constants  or 
variables,  EXPAND  performs  the  final  translation  using  XPND  for 
arguments  which  used  asterisks. 

Aftor  translation  is  successfully  completed  several  more  sub- 
routines are  needed  before  execution  can  begin.  LOOKUP*  chocks  to 
soe  if  the  entered  commands  are  legitimate,  XECUTE*  calls  the  subrou- 
tines in  which  execution  of  the  various  commands  is  actually  carried 
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A number  of  subroutines  are  available  for  use  in  subroutines 
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which  execute  commands.  ADRESS  calculates  the  address  of  -a  desired 
argument.  CHKCOL  checks  to  see  if  all  arguments  are  legitimate  column 
numbers  and,  if  so,  obtains  the  addresses  of  the  columns  in  the  work- 
sheet array.  CKIND  checks  to  see  wnether  ths  ients  are  all  float- 
ing point,  all  integer,  or  mixed.  MTXCHK  checks  to  see  ii  matrices  fit 
in  the  worksheet  and  calculates  their  addresses  in  the  worksheec  array. 
VECTOR  stores  a single  constant  in  an  entire  coJ  nn.  SCRAM  is  used 
when  extensive  scratch  space  is  needed  during  execution  of  a comr  nd, 
PLBK  is  used  to  halt  execution  while  the  user  chocks  the  command  which 
he  has  entered. 

Two  subroutines  are  used  for  displaying  error  messages.  ERROR* 
displays  messages  when  the  error  is  syntax.  AERR*-  displays  messages 
when  the  error  is  aiithmetic, 

E&illNT  and  RFXNT  set  a variable  TTYPE  to  indicate  the  type  of 
interrupt.  If  the  interrupt  was  a programmed  function  koy  interrupt 
thon  several  subroutines  are  called  tp  respond  to  the  user’s  direction. 
COMAKO  displays  the  list  of  implemented  commands,  DISPLY  produces  the 
display  which  appears  initially  and  contains  some  instructions,  PRGRAM 
displays  the  usor's  entered  program,  NQRKD  retrieves  and  displays, 
sections  of  the  worksheet  array. 

Several  subroutines  are  used  to  outer  data  into  the  worksheet. 
GENER*  is  used  to  generate. a column  of  numbers  by  specifying  first 
number,  last  number  and  increment,  READX*  performs  initiali ration 
necessary  when  entering  data  following  a READ  command,  READQ*  is 
used  to  enter  rows  of  data  following  a REAP  command,  SET*  performs 


initialization  necessary  when  entering  data  following  a SET  command. 
SETQ*  is  used  for  entering  data  following  a SET  command. 

Finally,  there  are  many  subroutines  which  are  used  for  computation 
in  response  to  specific  commands.  These  are  the  following:  ARITH*, 
ARYVEC,  CHANGE*,  DEFINE,  Ei'ASE,  EXCHNG,  EXPCON*,  EXTREM,  FLIP,  FUNCT*, 
FCOS,  FEXP,  FEXP2,  FLOG,  FSIN,  FSQRT,  INVERT*  (which  uses  INVCHK*  and 
SPINV*) , MATRIX*,  MDAMAD* , MXSC2*,  MMULT*,  MOP*,  MOVE*,  MRAISE,  MSCROW, 
MXTX*,  PDMOTE,  PROROW,  RESET,  SORDER,  STATD  and  TRANSF*. 
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THE  COMMON  BLOCKS 


COMMON 

BLOCK 

BLOCKA 


VARIABLE 

NAME  DESCRIPTION 


MODE=l 

M0DE=2 

M 

KARD(77) 

KARG,  ARG 
ARG2 

NEWCD(ID) 

KRDl'ND 

NEWCDS(19,5) 

KSAVE 

NSAVS 


For  interactive  mode 
For  input  mode , 

A pointer  and  scans  through  the  array  KARD 
An  array  which  contains  a numerical 
representation  of  the  input  line. 

Used  for  various  purposes  during  the 
compilation  of  the  argumont  portion  of 
an  input  line, 

Contains  the  most  recent  input  line. 

Set  to  the  maximum  number  of  characters 
in  an  input  lino. 

Used  to  savo  5 consecutive  input  linos 
before  writing  them  out  on  a data  sot. 
Contains  the  number  of  linos  in  NUWCDS 
which  have  not  boon  written  out. 

The  data  set  number  usod  for  both  storing 


input  linos  and  as  a scratch  aroa. 


NPLAG  Usod  to  prevent  execution  of  a command. 

Normally  NFLAG  is  0,  NPLAG  is  sot  to 
1 to  prevent  execution. 
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COMMON  VARIABLE 

BLOCK  NAME  DESCRIPTION 

EILOCKD  RC(2439)  Contains  the  worksheet  (2400  elements)  and 

the  floating  point  argument  list  (39 
elements) , 

IARG5(69)  The  integer  argument  array, 

KIND (39)  An  array  used  to  determine  whether  the 

i*th  argument  is  floating  point 
(KIND(I)=1)  or  integer  (KIND(I)=0), 
ARGTAB(51)  Contains  information  obtained  in  the  sweep 

of  the  input  line  and  is  used  to  obtain 
the  arguments  for  a command, 

NRMAX  The  number  of  rows  being  used. 

NRQW,NC0L  The  number  of  rows  and  number  of  columns 

of  the  worksheet. 

NARGS  Generally  contains  the  number  of  arguments 

in  the  input  line  but  is  modified  during 
execution  of  some  commands, 

VWXYZ(5)  The  user’s  variable  array, 

9L0CKE  NAME(4)  Ail  array  containing  the  numerical  repre- 

1 sentation  of  the  command  and  any 

■'vV:  • command  modifier. 

LI  Indicates  tho  group  to  which  a command 


belongs. 


COMMON 

BLOCK 


VARIABLE 

NAME 


DESCRIPTION 


BLOCKE  L2  Indicates  which  command  within  a group 

has  been  used, 

ISRFLG=0  For  READ  initiated  input. 

ISRFLG=1  For  SET  initiated  input. 

BLOCK?  NCTOP  Contains  the  top  row  of  the  worksheet  and 

is  always  one. 


CONSTS 


PI,  E and  Contains  the  values  of  ir,  e and  tt/2  for 
HALFPI 

internal  use  by  the  program. 

DEG  and  RAD  Are  usod  for  converting  from  degrees  to 

radians  and  from  radians  to  degrees. 


KPLQT  The  variables  in  KPLOT  are  used  in  obtain- 

ing CALCOMP  plots  of  the  screen. 

PCONST  P An  array  containing  the  values  v and  o. 

N An  array  containing  tho  numorical  transla- 

tion (OMNITAB  codo)  of  tho  characters 
PI  and  E.  This  enables  tho  user  to 
type  PX  and  B and  have  the  program 
recognize  them  as  constants. 

QRS  NDROW  Marks  the  end  of  tho  column  into  which 

data  arc  placed  using  the  SET  command 
J Is  used  with  both  READ  and  SET  to  indicate. 
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5 


VARIABLE 

NAME  DESCRIPTION 

J (cont.)  the  row  into  which  data  are  to  be 

placed. 

NNARG  Used  in  the  READ  initiated  input  mode  and 

contains  the  number  of  arguments  in 
the  READ  command. 

A Used  as  a scratch  area. 


MAIN  PROGRAM  AND  SUBPROGRAMS 


NOTE:  Throughout  this  section,  the  word  "coordinate"  refers  to  either 
the  "row,  column"  designation  of  the  upper  left  hand  comer  of  a matrix 
or  to  the  position  in  the  worksheet  array  RC  where  the  upper  left  hand 
clomont  of  the  matrix  is  located. 

AARGS 


PURPOSE:  This  subroutine  reads  a string  of  digits  and  assembles  a 

number  from  them. 

COMMON  BLOCK  VARIABLES  USED 

BLOCKA  M,  KARO,  KARG,  ARG 


LINE  FORTRAN 

NUMBER  LABEL  COMMENT 


12  ARG  starts  out  as  the  first  numbor  found, 

13,26,27  10,110  SIG  contains  tho  sign  of  tho  number 

23,41  40  KARG=*1,  number  is  in  floating  point  mode, 

17  KAUG»0  until  a decimal  point  is  found. 

18,30  KEXP  contains  tho  numbor  of  digits. 

6S,66  A numbor  containing  more  than  10  digits  has  to 


?5vv>'*rfus«.i 


43 


LINE 

NUMBER 

FORTRAN 

LABEL 

COMMENT 

16,24,31 

The  value  of  IEXP  indicates  how  many  digits  lie 

to  the  right  of  the  decimal  point. 

27-33 

20 

The  value  of  the  number  is  obtained  as  AR6. 

38-40 

Error;  Two  decimal  points  were  found. 

15,54 

IXS  contains  the  sign  of  the  exponent. 

46,53 

50,52,54 

Check  for  exponent  following  the  number. 

56 

56 

A number  with  an  exponent  must  be  real. 

14,57 

70 

JEXP  contains  the  value  of  the  exponent. 

72,73,75 

123,126 

Multiply  or  divide  by  the  appropriate  power  of 

10. 

67 

110 

Attach  tho  appropriate  sign. 

77 

130 

Error:  Real  number  is  too  largo  to  store  in  the 

machine. 


ADRESS(I,J) 

PURPOSE:  This  subroutine  calculates  the  addresss  of  argument  I.  If 

the  argument  is  a legal  column  number,  J will  be  equal  to  the 
location  of  the  top  of  the  column  in  the  worksheet  array  RC. 

If  the  argument  is  an  illegal  column  number,  J will  be  0.  If 
the  argument  is  a. floating  point  number  -J  will  be  the  address 
of  the  argument  in  the  worksheet  array  RC.  c The  end  of  the 
array  RC  (elements  2401-2439)  is  used  to  store  floating  point 
arguments, 

variabi.es  used 

RC,  IARGS,  KIND,  NROW,  NC0« 

nctop 

LINE  FORTRAN 

NUMBER  LABEL  COMMENT 

14  Calculate  the  location  of  a roal  argument  in  tho 

array  RC, 

16  10  Chock  to  soo  if  column  number  is  legal, 

19  20  Calculate  tho  beginning  of  tho  column  in  RC. 

AERR(I) 

PURPOSE;  This  subroutine  causes  error  messages  to  bo  written  on  tho 
screen  for  arithmetic  errors  only,  1 is  tho  error  code. 


COMMON  BLOCK 

BLQCKD 

BLQCKF 


AERR(I)  (cont.) 


LINE  FORTRAN 

NUMBER  LABEL  COMMENT 

8 I determines  which  message  is  to  be  written. 

9-23  55,201-  Error  messages. 

207 

ARITH 

PURPOSE;  This  subroutine  is  used  to  execute  the  commands  ADD,  SUB, 
MULT,  DIV,  RAISE,  SUBTRACT,  MULTIPLY  and  DIVIDE. 


COMMON  BLOCK 
BLOCKA 
BLQCKD 
BLOCKE 


VARIABLES  USED 
NPLAG 

RC,  KIND,  NRMAX,  NAR6S 

L2  * 1 for  ADD;  » 2 for  SUB 


* 3 for  MULT;  * 4 for  DIV 

* 5 for  RAISE;  = 6 for  SUBTRACT 

« 7 for  MULTIPLY;  * 3 for  DIVIDE 

LINE  FORTRAN 

NUMBER  LABEL  COMMENT 

13  Equivalence  of  user  commands; 

SUBTRACT»SUB,  MULTIPLYsMULT,  D1VIDE=>DIV. 

14,17,25,  2 Check  for  various  errors. 

20  : 

22-28  ' 15,20,30  Obtain  address  of  column  or  location  of  constant 

for  each  argument. 


46 


LINE 

NUMBER 


FORTRAN 

LABEL 


ARITH  (cont.) 


COMMENT 


JJ  marks  the  end  of  the  column  into  which  the 
results  are  to  be  stored. 


35,36 


37-95 


IJ  is  used  to  determine  which  loop  to  use  to 
execute  a given  command. 

Thore  is  a DO-loop  for  each  type  of  command. 


ARYVEC 


PURPOSE ; This  subroutine  is  used  to  execute  the  commands  M(AV)  and 


M(V*A)  ■ 


COWQN  BLOCK 


VARIABLES  USED 


BLOCKA 


NFLAG 


BLOCK!) 

SCRAT 

BLOCKB 


UC,  1ARGS,  NARGS 


L2  « 6 for  MCAV) 
*7  for  M(VfA} 


LINE 

NUMBER 


19-21 

26-27 


FORTRAN 

LABEL 


COMMENT 

There  must  be  either  6 or  7 arguments. 

All  arguments  must  bo  integers. 

The  fifth  argument  must  contain  the  column 
number  of  the  vector. 


ARYVEC  (cent,) 


LINE 

NUMBER 

31-32 


34 

37-41 


43,44 

51 

52 

53 

55-61 


62-71 

75-76 


FORTRAN 

LABEL  COMMENT 

For  the  command  V*A»  ICS  will  contain  the  row 
in  which  the  result  is  to  be  stored  (and 
must  be  within  the  worksheet) . 

440  For  AV,  ICS  will  contain  the  beginning  of  the 

storage  column  in  the  worksheet. 

450  For  the  7-argument  case,  treat  the  result  as  an 

a by  1 or  lbyb  matrix.  Note  that  L2=6  for 
AV  and  L2»7  for  V’A. 

460  Chock  the  legality  of  tho  matrix  or  matrices. 

IAP  contains  the  address  of  A. 

For  tho  7-argumont  case,  set  ICS  to  the  coordi- 
nate of  the  output  matrix, 

IP  contains  tho  longth  of  the  rosulting  vector. 

640  JP  contains  the  implied  longth  of  V.  I ADI  and 

IAD2  hro  increments  used  for  obtaining  the 
correct  result  in  tho  multiplication.  Thoy 
are  sot  to  a,  1 for  AV  mid  to  1,  b for  V*A, 

660-746  Perform  tho  multiplication  using  the  scratch 
array  A to  hold  the  resulting  vector. 

Store  the  resulting  vector  into  the  designated 
location  in  the  worksheet. 


ASTER 


PURPOSE;  This  subroutine  is  used  when  asterisks  are  encountered  in 
on  argument  list.  It  compiles  that  part  of  the  argument  list 
which  uses  asterisks. 


COMMON  BLOCK 
BLOCKA 


VARIABLES  USED 
M,  KARD,  ARG,  ARG2 
KARG  » 1 Single  Asterisks 
a 0 Double  Asterisks 


as  input 


' S 
S3 


D 


O 


1 

2 

3 

4 

5 

6 
7 


Error 


Floating  Point  Constant 


Integer  Variable 
Floating  Point  Variable 


Vas  output 


Worksheet  Entry,  to  be  used 
as  an  integor 

Worksheet  Entry,  to  be  used 
as  a floating  point  number 


Asterisks,  indicating  through 


LINE  FORTRAN 

NUMBER  mill  . COWttiNTS 

20  10  Chock  for  string  of  asterisks, 

24, 4ft, 50  30,110  KARG  indicates  how  the  asterisks  were  used. 

70,80  . • 

25,26  IS  ***  to  tiican  "through," 


28  20  Error;  Number  or  letter  must  follow  asterisks, 

29  dump  if  a letter  is  found 

34-49  30,40.45  Establish  a worksheet  reference. 


v. 


49 


--i" 


•: , - ASTER  (cent, ) 


fri 


s 

LINE 

FORTRAN  , 

5 

NUMBER 

LABEL 

COMMENTS 

i‘, 

V. 

"45 

34 

30 

Determine  the  row  or  column  number. 

£ 

3S 

Error:  Argument  must  be  integer. 

f 

36 

Row  number  must  be  followed  by  comma  and 

f 

column  number  must  be  followed  by  asterisk. 

i.' 

*. 

t 

39 

Error:  No  column  number. 

j? 

■ \ 
i 

44-47 

45 

ARG=row  number;  ARG2  » Column  number. 

y 

£ 

53 

50 

Code  the  name. 

i: 

f 

54-55 

Check  to  see  if  name  is  a physical  constant. 

i; 

*■.. 

60 

Error:  Physical  constant  must  be  real. 

r ‘ * 

65-66 

6° 

Check  to  see  if  name  is  a legal  variable  name. 

■ t 

'1 

V* 

67 

Error:  The  name  is  not  legal. 

r ‘ 

. ! . 

68 

70 

KARG=1  indicates  an  error. 

J 

i, 

' J 

71-78 

90,100 

Error:  Number  of  asterisks  following  expression 

- i • ...  • 

f 

is  not  equal  to  the  number  preceding  the 

| ■ • 
j 

expression. 

. t 

; 

f? 

( 

BLOCK  DATA 

PURPOSE: 

This  subprogram  initialises  some, constants,  - 

■‘I  • 

COMMON  BLOCK 

VARIABLES  USED 

:|  * 

BLOCKA 

MODE,  KKOiwL,  Iw/Wii,  NSAVE,  NPLAG 

l - ■ 

M’S1 

BLOCKD 

NUMAX,  NR0W,  NCOL  ' ;'  •>  v 

1.  . 

BLOCKS 

;u  , : '■ 

BLOCK  DATA  (cont.) 


COMMON  BLOCK 

VARIABLES  USED 

BLOCKF 

NCTOP 

CONSTS 

PI,  E,  HALFPI,  DEG,  RAD 

KPLOT 

NFRAME,  KKND,  SIZE,  SPACE 

PCONST 

P,  N 

LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

15,16 

Set  some  constants  used  in  the  system. 

17 

P contains  the  values  of  n and  e and  N contains 

the  OMNITAB  code  of  the  characters  PI  and  E, 
19  NROW  and  NCOL  contain  the  dimensions  of  the 

worksheet , NFRAME,  KKND,  SIZE,  SPACE  are 
used  for  preparing  CALCQMP  plots. 


CHANGE 


PURPOSE; 

This  subroutine  executes,  the  command  CHANGE 

COMMON  BLOCK 

VARIABLES  USED 

DLOCKD 

RC,  NRMAX,  NARGS 

BLCCKA 

NFLAG 

LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

8-11, 

903,910 

Check  for  errors 

20-24 

909 

15 

J will  be  the  beginning  of  tho  column 

51 


■ t 
i 


CHANGE  (cont.) 

17,18  20  Change  signs, 

CHKCOL(J) 

PURPOSE:  This  subroutine  checks  to  see  if  the  first  NARGS  integer 

arguments  are  legitimate  column  numbers,  J will  be  0 for  no 
error  and  1 for  error,  IARGS(l)  through  lARGS(NARGS)  will 
become  the  addresses  of  the  columns  in  the  worksheet  array  RC. 


[' 


i 


COMMON  BLOCK  VARIABLES  USED 


BLOCKD 


IARGS,  NARGS 


LINE  FORTRAN 

NUMBER  LABEL 

11  10 

10 

13-15  20 

17 


COMMENT  _• 

J is  sot  to  1 if  any  error  is  found. 

There  must  bo  at  least  one  agrumout. 

Check  to  see  if  each  argument  is  a legal  column 
number. 

J is  sot  to  0 if  no  error  is  found. 


CKIND(J) 


PURPOSE:  This  subroutine  chocks  the  tyi)o  of  tho  first  J arguments, 

J is  sot  to  0 if  all  arc  integers,  to  1 if  all  are  floating 
point  numbers,  and  to  2 if  both  typos  are  found. 


COMMON  BLOCK  VARIABLES  USED 

BLOCKD  KIND 


CKIND(J)  (cont.) 


LINE 

NUMBER 


FORTRAN 

LABEL 


COMMENT 


11-13 


16-13 


JA  will  be  the  number  of  arguments  to  be  checked. 
J will  remain  0 if.  no  floating  point  numbers  are 
found . 

Check  for  floating  point  numbers, 

J is  1 if  no  integers  are  found. 

Check  for  integers. 

J is  2 if  both  types  are  found. 


COMANDC*) 

PURPOSE;  This  subroutine  displays  on  the  scroon  a list  of  available 
commands. 


FORTRAN 

LABEL 


COMMENT 

Those  two  cLt.'-i  statements  contain  tho  namos  of 
all  commands  currently  implemented. 

NSIZli  is  tho  number  of  commands.  The  array 
NAMES  must  be  dimensioned  2*  NSIZE. 

NRQWS  contains  tho  number  of  full  rows  of 
commands  which  will  bo  displayed  on  the 


screen. 


NLEPT  contains  tho  number  of  commands  to  be 
displayed  in  tho  last  row  of  commands. 


COMANDC*)  (cont,) 


Erase  the  screen. 


41-42 


43-48  50-70 


Write  a heading. 

The  array  K contains  0*s  and  l's.  The  first 


NLEFT  elements  are  1 and  the  remainder  are 
0,  This  array  is  used  in  obtaining  from  the 
array  NAMES  the  names  which  belong  in  a 


50-60  100-200 


62-70  300 


given  row. 

Write  out  each  full  row  of  commands.  The  array 
NWORK  is  used  to  hold  the  names  pulled  out 
from  the  array  NAMES  for  each  row. 

The  last  line  may  not  be  a full  line. 


DEFINE 


PURPOSE:  This  subroutine  is  used  to  execute  the  command  DEFINE, 


COMMON  BLOCK 
BLQCKA 


VARIABLES  USED 
NFLAG 


BL0CKD 


UC,  I ARCS,  KIND,  NRMAX,  NARGS,  NR0W 


BL0CKE 


11,  L2,  J 


LINE 

NUMBER 


FORTRAN 

LABEL 


COMMENT 


1, 


Chock  for  illegal  number  of  arguments, 

KJ*>0  for  integer,  1 for  roal. 

Error:  The  first  argumont  in  the  4-argument 
form  is  real,  . . 


LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

27 

L2-2  (column,  column) 

=3  (row,  column,  column)  and  (constant,  column) 
*4  (row,  column,  row,  column)  and 
(constant,  row,  column). 

30 

L marks  tho  beginning  of  the  storage  column. 

31 

Error;  Last  argument  must  be  a column  number. 

32 

20 

Error:  Only  when  L2=4  can  NRMAX  be  0. 

34-37 

30 

When  L2=4,  L must  be  changod  to  point  to  the 
requested  row. 

39-42 

50,55 

J marks  the  beginning  of  the  origin  column. 

43-46 

J is  changod  to  point  to  tho  xequosted  row, 

47 

AR6S(j)  must  contain  the  required  constant. 

SI-SI 

65,70 

Copies .^irst  column  into  second. 

56 

80 

The  required  value  is  copied  into  tho  first 
1-1RMAX  rows  of  tho  roforonccd  column. 

58 

90 

Tho  required  value  is  copied  into  tho  designated 

vow  and  column. 

PT$?IY(*) 

IHfflPOSK:  This  subroutine  is  used  to  produce  the  initial  display 

which  appears  after  the  user  enters  $LINKOMfAD. 


ERASE 


PURPOSE: 

This  subroutine 

is  used  to  execute  the  command  ERASE, 

COMMON  BLOCK 

VARIABLES  USED 

BLOCKA 

NFLAG 

BLOCKO 

I ARCS,  NRMAX,  NROW,  NCOL,  NARGS  f 

LINE 

FORTRAN 

i 

! 

NUMBER 

LABEL 

COMMENTS 

9,10 

All  arguments  must  bo  column  numbers  (I“0) 

17,18 

40 

Zoro  out  each  column  in  the  argument  list. 

23,24 

SO 

Erase  the  entire  worksheet. 

EIUIOU(I) 

PURPOSE:  This  subroutine  is  used  whenever  an  error  is  detected* 

and  informs  tho  usor  as  to  the  nature  of  the  error. 


COMMON  BLOCK  VARI ABM’S  USUI) 


COMMON  BLOCK 


ERROR(I)  (cont.) 
VARIABLES  USED 


KPLOT 

NFRAME,  KKND,  SIZE,  SPACE 

BLOCKA 

NEWCD,  NEWCDS,  KSAVE,  NSAVE , NFLAG 

LINE 

NUMBER 

FORTRAN 

LABEL 

COMMENTS 

10 

For  arithmetic  errors,  this  prevents  the 

error  message  from  being  repeatedly 

displayed. 

11,12 

J will  be  zero  for  arithmetic  errors. 

15 

Display  the  entered  command. 

17 

J will  be  1 for  informative  diagnostics. 

18 

NFLAG«1  indicates  error  condition. 

19-68 

1-30,3000, 

5000 

Display  orror  message  for  fatal  errors. 

77-88 

9001,9004, 

250,9003 

Since  an  arithmetic  error  has  occurred 
the  command  must  be  writton  on  a data 

sot  here  rather  than  aftor  execution 

has  boon  completed. 

92-116 

400-415, 

4000,4500 

Display  informative  diagnostics. 

117-120 

PPK22  will  initiate  preparation  of  a data 

set  for  plotting  the  CRT  image  on  a 
CALCOMP  plottor. 


EXCHNG 


PURPOSE : This  subroutine  is  used  to  execute  the  command  EXCHANGE 


COMMON  BLOCK 

BLOCKD 

BLOCKA 


VARIABLES  USED 

RC,  IARGS,  NRMAX,  NARGS 

NFLAG 


LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 


7 


There  must  be  an  even  number  of  arguments. 


8,9 


All  arguments  must  be  column  numbers. 


13-20  30  The  exchange  command  is  executed. 


EXPAND  (J , hi  IERE) 


PURPOSE;  This  subroutine  is  used  to  translate  information  which  has 
boon  stored  in  tho  array  WHERE  into  a form  which  will  bo  used 
for  the  actual  exocution  of  commands.  J indicates  the  number 
of  elements  in  WHERE  containing  information  needed  for  tho 
current  command. 

COMMON  BLOCK  VARIABLES  USED 

r~. n'irM  i.r  u im  i n»  .•-*:»*****,  n^ii^wi  m 

BLOCKD  IARGS,  ARGSCeqUivalenced  to  UC),  KIND, 

V.  ~ NARGS 

LINE  FORTRAN 

NUMBER  LABEL  COWENTS 

11  will  bo  used  as  the  subscript  for  tho 
arrays  ARCS,  KIND  and  IARGS, 


12 


EXPAND (J, WHERE)  (cent.) 


LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 

13  I will  be  used  as  the  subscript  for  the 

input  array  WHERE . 

14  JJJ  marks  the  end  of  the  array  WHERE. 

15-17  10,15  Increment  the  subscripts  and  check  to  see 

if  any  more  conversion  is  necessary. 
20-22  20  Positive  T indicates  an  integer  argument. 

Set  KIND  to  0 and  store  the  argument 
into  lARGS. 

23-26  30  If  T is  0 then  the  next  element  of  WHERE 

contains  the  next  argument  which  is 
real , Sot  KIND  to  1 and  store  the 
argument  in  ARGS. 

28-36  41-50  Tho  subroutine  XPND  obtains  arguments  when 

reference  is  made  using  a variable  or 
a worksheet  location. 

40  100  The  following  section  is  used  when  *** 

* • 

was  found  in  tho  command , 

43  Error:  Both  arguments  surrounding  *** 

must  bo  integers. 

45  10S  IU  will  contain  the  integer  argument 

following***. 


5!) 


LINE 

NUMBER 

46-52 


53-56 


58-65 


.,;X«H.Oa 

PURPOSE;  This  subroutine  ’S  tsed  for  executing  the  commands 

MWJCDIAG,  AVECDIAG,  MVW;MAT,  AVLCARR,  MATVUC  and  AARUVHC. 

COMMON  BLOCK  'VARIW1S  l tS«P 

ELOCKA  NPLAG 

BLOCK!)  ; : UC,  XARfiS,  NROW,  NARGS 

BIOCKC  12  * 1 NVIXDIAG 


« 2 AVECDIAG 
e 3 AVECAUU 
a 4 MMATVUC 


EXPAND (J , WHERE)  (cont.) 

FORTRAN 

LAPEL  COMMIT, 'To 

106-125  Increase  NARGS  to  include  tha  number  of 

implied  arguments  and  check  to  deter- 
mine whether  expansion  is  from  a high 
value  to  a lower  value  or  from  a low 
value  to  a higher  one. 

140,150  Fill  I.'RGS  wi  ;h  the  implied  arguments  and 

set  tho  corresponding  elements  of  KIND 

to  0, 

i.'so  the  subroutine  XFND  to  obtain  the 
value  of  the  integer  argument  following 
TIT. 


COMMON  BLOCK 
BLOCKE  (cont . ) 

SCRAT 

LINE  FORTRAN 

NUMBER  LABEL 

10 

12-14  100 

15-17 

18*19  102 

20-24 

25 


26-28 


EXPCON  (cont.) 

VARIABLES  USED 
= 5 AARRVEC 

A 

COMMENTS 

There  must  be  either-  5 or  6 arguments , 

All  arguments  must  be  integers. 

The  first  4 arguments  identify  the  matrix. 
Check  for  errors. 

ILL  will  contain  the  address  of  the 
column  in  the  command. 

Initialise  constants  that  will  bo  used  in 
performing  the  required  operation. 

For  MVECMAT,  AVECARR,  MMATVEC  and  AARRVEC, 
the  implied  length  of  the  voctor  is 
the  product  of  the  number  of  rows  and 
numbor  of  columns  of  tho  matrix.  This 
must  ho  limited  to  80,  tho  length  of  a 
column. 

If  there  are  6 arguments,  ItC,  tho  address 
of  tho  vector#  must  he  adjusted  to  a 
row  other  than  the  first  row  of  a 
column.  Tho  implied  length  of  the 
vector  is  further  restricted  also.. 

ItX  marks  the  end  of  the  vector. 


EXPCON  (cont.) 


FORTRAN 

LABEL  COMMENTS 

120-130  The  diagonal  of  the  matrix  is  stored  in 

the  indicated  column, 

220-250  The  designated  matrix  is  stored  as  a 

vector  in  the  designated  column. 

300-305  The  arguments  are  moved  so  that  the  first 

four  arguments  designate  the  matrix. 

310-340  The  designated  vector  is  stored  as  a 

matrix. 


EXTREM 

PURPOSE: 

This  subroutine  is  used  for  executing  the  commands 

MAX, 

MAXIMUM,  MIN  and  MINIMUM,  . , 

COMMON  BLOCK 

VARIABLES  U8RI> 

BLQCKD 

RC,  I ARCS,  NRMAX,  NARGS 

BLOCKA 

NIT, AG 

BLOC KB 

L2  a 4 MAX  ■ • V : 

5 MAXIMUM  ' • 'fc 

. =»  6 MIN  : r 

*1  MINIMUM 

LINE 

NUMBER 

36-43 

45-58 

60-70 

71-S2 


62 


EXTREM  (cont.) 


LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

10 

There  must  be  an  even  number  of  arguments. 

14,15 

30 

All  arguments  must  be  column  numbers. 

23,24 

J is  used  to  determine  whore  the  maximum 

or  minimum  is  in  the  column.  If  NRMAX 
is  1,  then  it  has  to  be  in  the  first 
row. 


25-27 

Prepare  constants  for  uso  in  the  search. 

32-35 

70 

Find  the  maximum. 

39-41 

80,90 

Find  the  minimum. 

42 

100 

.J  will  be  one  loss  than  the  number  of  the 
row  containing  either  the  maximum  or 

tho  minimum. 

43-45 

110,120 

Execute  the  command. 

rcos(x) 

PURPOSE ; Tills  function  evaluates  the  cosine  of  x,  checking  first 
to  determine  that  the  value  of  x is  within  the  bounds  of  the 
function  and  returning  G if  the  cosine  cannot  be  evaluated. 

FEXi’(X) 

PURPOSE:  this  function  evaluates  or,  checking  first  to  see  if  over- 

flow would  result  and  returning  0 if  overflow  or  underflow 


FEXP(X)  (cont.) 


would  occur, 

FEXP2(B,E) 

n 

PURPOSE : This  function  evaluates  B if  possible  and  returns  0 if 

the  evaluation  would  produce  underflow  or  overflow  or  if  B is 
negative . 


FLIP 


PURPOSE  - 

This  subroutine 

is  used  for  executing  the  command  FLIP. 

COMMON  BLOCK 

VARIABLES  USED 

BLOCKA 

NFLAG 

BLOCKD 

RC,  IARGS,  NRMAX,  NARGS 

LINE 

FORTRAN 

NUMBER 

LABEL 

CO^ENTS  ■' 

7 

11,12 

20 

Thero  must  be  an  oven  number  of  arguments. 
All  arguments  must  be  column  numbers, 

20-35 

50,00 

Flip  column  IARG(I)  into  column  IARG(I+1) 

for  each  argument  pair. 


FLOG (X) 

PURPOSE : This  function  evaluates  lu  xfor  x greater  than  0,  It 

returns  0 for  x loss  than  or  equal  to  0, 


64 


FSIN(X) 


PURPOSE: 


This  function  evaluates  sin  x if  x is  within  the  bounds  of 


the  function.  It  returns  0 if  x is  not. 


FSQRT(X) 


PURPOSE ; This  function  evaluates  the  square  root  of  non -negative  x. 

It  returns  0 if  x is  negative. 


FUNCT 


PURPOSE:  This  subroutine  is  used  for  the  execution  of  the  follow- 

ing commands:  SIN,  COS,  TAN,  COT,  ARCSIN,  ASIN,  ARCCOS,  ACOS, 
ARCTAN,  ATAN,  ARCCOT,  ACOT,  SIND,  COSD,  TAND,  COTD,  ASIND, 
ACOSl),  ATAND,  ACOTD,  ABSs  ABSOLUTE,  EXP,  EXPONENT,  LOG,  LOGE, 
SQRT,  NEGEXP,  LOGTEN,  ANTILOG,  SINH,  COSIi,  TANK,  COTH,  ASINH, 
ACOSH,  ATANH,  ACOTU  and  PEVNOR.  " 


COMMON  bloc:k 


VARIABLES  USED 


BLOCKA 


NFLAG 


BLOCKD 


RC,  KIND,  NRMAX,  NARGS 


CONSTS 


HALFPI,  DEG,  RAD 


BLOCKS 


12  * 1 ADS;  2 EXP 


*3  IDG;  4 SQRT 
« 5 NEGSXP;  6 LOGTEN 
* 7 ANTI  LOG  ; S SINK  “ 


4 


b 9 COSII;  10  TANII 


■****»— 


PUNCT  (cent,) 


COMMON  BLOCK  VARIABLES  USF.D 

BLOCKE  (cont.)  * 11  COTH;  12  ASINH 

= 13  ACQSH;  14  ATANH 
= 15  ACOTH;  16  DEVNOR 
= 17  ABSOLUTE;  IS  EXPONENT 
= 19  LOGE;  20  SIN 
* 21  COS;  22  TAN 
= 23  COT;  24  ARCSIN 
« 25  ARCCOS;  26  ARCTAN 
= 27  ARCCOT;  28  SIND 
a 29  COSD;  30  TAND 
« 31  GOTO;  32  ASIND 
a 33  ACOSD;  34  ATAND 
» 35  ACOTD;  36  AS IN 
« 37  ACOS;  3S  ATAN 
= 39  ACOT 

FORTRAN 

LABEL  COMMENTS 

21  Chock  number  of  arguments. 

24  10  It  will  contain  the  address  of  tho  storago 

■ ■'7  column. 

30  40  ItZ  will  mark  the  end  of  tho  storago 

■ column, 

31  Tho  valuo  of  NARGS  will  bo  one  loss  than 

the  number  of  arguments. 


LINE 

NUMBER 


FUNCT  (cont,) 


LINE 

NUMBER 

32-36 

37-39 

41,42 

43-45 

46 

52 


FORTRAN 

LABEL  COMMENTS 

45,50  This  loop  obtains,  for  each  remaining 

argument,  the  address  of  either  a 
column  or  a constant  depending  on  the 
type  of  argument. 

If  a trigonometric  function  is  followed 
by  the  qualifier  DEGREE,  the  value 
of  L2,  which  is  used  to  determine  which 
evaluation  is  to  bo  performed,  must  be 
modified. 

If  tho  first  argument  is  roal  then  the 
function  needs  to  be  evaluated  just 
once,  LOCRTN  equal  to  1 indicates 
this  situation.  Else  a whole  column 
of  arguments  is  used. 

The  value  of  12  determines  which  function 
is  to  bo  evaluated. 

52  ARGS(l)  will  now  contain  the  value  of  tho 

function  at  the  desired  point  when  the 
first  argument  is  a constant. 

This  ASSIGN  statement  is  used  when  the 
first  argument  is  a column  number  and 
will  initiate  the  function  evaluation 
for  each  value  in  tho  column. 


FUNCT  (cont.) 

58,59  When  there  are  two  arguments  and  the  first 

is  a constant,  store  the  functional 
value  in  the  designated  column. 

63  70  When  there  are  two  arguments  and  the  first 

is  a column  number,  LOCRTN  is  2. 

64  1 will  be  used  as  a subscript  to  obtain 

from  the  worksheet  the  input  to  be 
evaluated. 

65  80  Check  to  seo  if  the  end  of  the  column  has 

been  roachod. 

66  X will  be  the  argument  in  the  function 

evaluation. 

67-69  GO  TO  tho  section  of  the  program  in  which 

the  desired  evaluation  will  be  per- 
formed, 

70-73  Tho  program  returns  to  this  place  after 

the  function  has  been  evaluated. 

Result  is  placed  into  the  worksheet 
and  subscripts  aro  incremented. 

74  K2  will  bo  used  to  increment  the  subscript 

for  the  second  argument  in  the  throe- 
argument  caso  and  thus  must  bo  zero  if 
the  second  argument  is  a constant. 

79-82  100  Complete  the  required  computations  for  the 


three-argument  case  where  the  first 


68 


86-97 

99-102 


104 

105-273 

PURPOSE; 

COfflON  BLOCK 

BLOCKA 

BLOGKO 


FUNCT  (cont.) 

argument  is  a constant , 

110»120*115  This  section  is  used  for  the  three-argu- 
ment case  when  the  first  ar-u».  nt  is  a 
column  number. 

250  This  statement  is  executed  only  when 

evaluations  must  be  made  for  a column* 
and  passes  control  to  the  appropriate 
section  where  the  label  for  the  begin- 
ning of  the  section  will  be  assigned 
to  INDEX  for  use  in  the  assigned  GO 
TO  in  line  67  or  90, 

275  Pass  on  to  the  next  row  of  the  worksheet, 

if  necessary, 

299-610  The  calculations  for  each  function  are 

performed  in  this  section  of  the  pro- 
gram, 

GENER 

This  subroutine  is  used  for  executing  the  command  GENERATE. 

VARIABLES  USED 

• - - y ■ -■ — - 1 ni  • r ; ~i — 't 

NFLAG 

RC,  I ARCS,  KINO*  NRMAX,  NR0W,  NARGS 


69 


f 

*• 

t 

f 

i. 

*' 

& 


t 


LINE 

FORTRAN 

GENER  (cont.) 

NUMBER 

LABEL 

COMMENTS 

9 

Check  for  illegal  number  of  arguments. 

13 

20 

Obtain  address  of  column. 

19-21 

30,40 

All  arguments  must  be  floating  point  or 

22-27 

50 

converted  to  floating  point  numbers. 
Check  that  the  end  points  and  increments 

28-29 

are  legal  and  find  out  how  many  rows 
would  be  needed. 

If  the  GENERATE  command  requires  more  rows 

32-45 

110-150 

than  are  available,  the  user  is  asked 
to  cancel  the  command  or  have  it 
executed  as  far  as  possible. 

Valuos  are  actually  generated  into  the 

specified  column. 

INPUT 

PURPOSE;  This  subroutine  reads  u lino  from  the  CRT  reply  area. 

The  character  string  is  stored  in  NtiWCf)  and  is  converted  into 
a numerical  code  stored  in  KARD. 

COMMON  Bj.'OCK  VARIABLES  USTiU 

DLOCKA  KARD,  NliWCD,  KRDRNt) 


INVCHK(NB,DET,JP) 


70 


1 


i 


PURPOSE : This  subroutine  is  used  for  moving  a matrix  into  a scratch 

area  prior  to  inverting  it.  An  identity  matrix  is  also  placed 
into  the  scratch  area  since  Gaussian  elimination  is  used  as 
the  inversion  method. 


COMMON  BLOCK 

VARIABLES  USED 

1 

BLOCKD 

RC,  IARGS,  NROW 

| 

j 

BLOCKE 

L2 

SCRAT 

A (equivaloncod  to  B) 

LINE  FORTRAN 

NUMBER  LABEL 

COMMENTS 

20 

NA  will  bo  the  dimension  of  the  matrix. 

«* 

22 

JC  will  point  to  tho  right  hand  side 

■*  ■/ 

vector. 

23,24 

Initialize  some  constants. 

■ . 1 

25 

JAP  will  bo  the  address  of  the  matrix, 

26-40  9-12 

Tho  DO  10  loop  sets  up  NA  records  on  a 

i . 

scratch  data  sot . Each  record  contains 
a row  of  the  matrix  to  bo  inverted; 
this  row  is  obtained  in  the  DO  9 loop 
and  a row  of  tho  identity  matrix  is 

' i 

genoratod  in  tho  DO  12  loop.  For  1 

solving  a system  of  linear  equations,  „ ' f 

j 

the  right  hand  side  vector  is  attached  L 

to  the  matrix. 


INVCHK  (cont.) 


LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

42-46 

13 

Croat©  the  last  row  for  tide  commands 

LINEAR  and  MLINEAR, 

47 

14 

Call  SPINV  to  invert  the  matrix. 

INVERT 

PURPOSE;  This  subroutine  is  callod  in  response  to  the  commands 
MINVERT,  INVERT,  MLINEAR  and  LINEAR  and  checks  arguments  and 
stores  the  results.  (Tho  calculations  take  place  in  the  SPINV 
subroutine.) 

COMMON  BLOCK  VARIABLES  USED 

BLOCKA  NFLAG 

BLOCKD  RC,  IARGS,  KIND,  NARGS,  NROW 

SCRAT  A (cquivalenccd  to  U) 

BLOCKE  L2  « 1 INVERT,  MINVERT 

« 2 LINEAR,  MLINEAR 

LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 

IS  Chock  the  number  of  arguments. 

18-20  1200  Check  for  illegal  arguments, 

22-2S  Expand  the  five  - argument  fora  into  an 

equivalent  six  - argument  form. 


72 


l 


LINE  FORTRAN 

NUMBER  LABEL 


} 

t 


31,32 

95 

33 

96 

34-39 

44 

45,46 

40-57  100,  110 

60-63  130,140 


INVERT  (cont.) 

COMMENTS 

There  is  one  matrix  to  check  for  LINEAR 
and  MLINEAR  and  two  matrices  to  check 
for  INVERT  and  MINVERT.  The  implied 
dimensions  of  the  second  matrix  are 
placed  into  the  argument  array. 

Check  the  legality  of  the  matrices. 

A 15  by  15  matrix  is  the  largest  matrix 
inverted  by  this  system. 

Ml  will  contain  the  dimension  of  tho 
matrix  to  be  inverted.  For  solving  a 
system  of  linear  equations  the  dimen- 
sion is  one  larger  than  tho  dimension 
of  tho  matrix  of  coefficients  and  ono 
needs  to  obtain  column  addresses  for 
tho  last  two  arguments. 

Non-zero  determinant  implies  successful 
inversion. 

Sot  constants  which  will  be  used  in 
storing  results. 

The  inverse  of  the  matrix  is  placed  into 
tho  worksheet. 

Store  the  solution  of  a system  of  linear 
equations. 


73 


i 

INVERT  (cont.) 

LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 

64-69  150,160  Writo  out  the  determinant  of  the  matrix 

on  the  screen. 

LOOKUP 

PURPOSE;  This  subroutine  contains  the  dictionary  of  commands.  An 
entered  command  is  compared  with  tho  entries  in  the  dictionary 
and  indicators  are  set  to  identify  the  command. 

COMMON  BLOCK  VARIABLES  USED 

BLOCKE  NAME,  LI,  L2 

LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 

13-98  Those  data  statements  create  a dictionary 

of  commands. 

106-239  104-360  Compare  tho  command  given  by  tho  user 

with  tho  dictionary  of  commands.  Set 

LI  and  L2  to  identify  the  command. 

240  899  Set  LI  to  0 if  the  command  is  not  in  tho 

dictionary. 


PURPOSE ; This  program  contains  a cross-reference  table  showing 

for  each  labelled  COMMON  which  subprogram  it  is  used  in.  It 
also  shows  for  each  subprogram  those  subprograms  which  refer- 
ence it.  It  prepares  a random  access  file  and  a plotting  file 
initializes  GMS,  calls  the  OMNITAB  driver  routine,  releases 
GMS  and  closes  the  plotting  file. 

OMMON  BLOCK  VARIABLES  USED 

BLANK  IOVLY 

MATRIX 

PURPOSE:  This  subroutine  is  used  in  executing  the  commands  MADD, 

MSUB,  MTRANS,  ATRANS,  AADD,  ASUB,  AHULT,  ADIVIDE,  AUAISE, 
ASCALAR,  MSCALAR  and  SCALAR. 

COMMON  BLOCK  VARIABLES  USED 

BLOCKA  NRAG 

BLOCK!)  SC,  IARGS,  KIND,  NAUGS,  NROW 

SCRAT  A 

DLOCKE  12  » 1 mm 

« 3 MTRANS,  ATRANS: . ' 

* 4 AADD 

o 5 ASUB 

« 6 AMULT 

« 7 ADVIDC 


MATRIX  (cont.) 


COMMON 

BLOCK 

VARIABLES  USED 

LINE 

FORTRAN 

a 8 ARAISE 

= 9 ASCAcAR,  MSCALAR,  SCALAR 

NUMBER 

LABEL 

COMMENTS 

22-24 

30-35 

100-140 

Initialize  some  constants. 

Check  the  number  of  arguments  for  the 

42-44 

605-610 

various  commands. 

All  arguments  at  this  point  should  appear 

to  be  integer.  This  chock  will  also 
indicate  an  error  if  an  excessive 
number  of  arguments  are  used  for 
ASCALAR,  MSCALAR  and  SCALAR, 

47  640  N2  points  at  either  n constant  or  a column 

for  the  cases  in  which  not  all  arguments 
define  matrices. 

46  For  ASCALAR,  MSCALAR  and  SCALAR  the  N2 

argument  must  he  a constant. 

55-61  660,680  Check  the  N2  argument*  Ml’  will  point  to 

either  a constant  or  a column.  Manipu- 
late the  argument  arrays  so  as  to  avoid 
improper  error  detection  later. 

66-69  850  This  refors  to  the  situation  where  only 

one  dimension  is  given  for  the  matrix. 
Thus  all  arguments  except  the  first  two 
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LINE 

NUMBER 


71-79 


88-89 


91-92 


97-105 


106-138 


FORTRAN 

LABEL 


1300 


1600 


1700 


1400,2000 


2100-3560 


MATRIX  (cont.) 

COMMENTS 

must  be  moved  out  one  place  in  the 
IARGS  array.  Thus  IARGS(4)  will  equal 
IARGS(3). 

The  dimensions  of  the  second  matrix  are 
not  given.  Arguments  7 and  8 must  be 
moved  into  9 and  10  so  that  the  implied 
dimensions  can  be  stored  in  7 and  8. 

For  MTRANS  and  ATRANS  the  number  of 
rows  of  the  first  becomes  the  number  of 
columns  of  the  second  and  vice  vorsa. 
Also  NROWPP,  a stepping  constant,  must 
bo  changed  from  NitOW  to  1. 

The  dimensions  of  a third  matrix  must  be 
picked  up  from  the  dimensions  of  vho 
first , 

Check  whether  the  matrices  fit  in  tho 
worksheet,  J,  the  number  of  matrices, 
is  either  2 or  3. 

Initialise  some  variables  which  will  be 
used  in  performing  tho  required 
calculations, 

Tho  required  calculations  are  performed 
and  the  results  aro  stored  on  a scratch 


77 


I 

I 


MATRIX  (cont.l 


'."N 

LINE 

NUMBER 

FORTRAN 

LABEL 

COMMENTS 

j ; 

data  set. 

142-150 

4060,4080 

The  results  are  moved  from  the  scratch 

J *• 

data  set  into  the  worksheet. 

•0 

MDAMAD 

$>.■' , 

PURPOSE: 

This  subroutine 

is  used  for  executing  the  commands  M(AI 

V' 

H '■ 

an d M(DA) . 

- 

to. 

> 

COMMON  BLOCK 

VARIABLES  USED 

\s 

BLOCKA 

NFLAG 

f-,' 
i . 

BLOCKD 

RC,  IARGS,  NROW,  NARGS  * 

H*'  r 

BLOCKE 

L2  = 4 M(AD) 

!,-V 

Vr* 

= 5 M(DA) 

i 

SCRA'r 

A 

V 

7\v 
0-  • 

LINE 

NUMBER 

FORTRAN 

LABEL 

COMMENTS 

INV. 

K\j 

f: 
$■•  . 

16 

There  must  be  exactly  seven  arguments. 

?■ 

20-23 

All  arguments  must  be  integers. 

v> 

2V 

IDP  will  contain  the  address  of  the  column. 

£• 

k 

r 

31-34 

50 

The  coordinates  of  the  result  must  be  in 

l * 

IARGS (5)  and  !ARGS(6),  Pick  up  the 

iW 

jff 

dimensions  from  IARGS (3)  and  IARGS(4), 

& 

£■ 

r 

4: 

%; 

35-37 

Both  matrices  must  fit  into  the  worksheet. 
• 
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LINE  FORTRAN 

NUMBER  LABEL 


46-55  200,260 


56-65  300,400 


66-73  400,440 


MDAMAD  (cont.) 

CONSENTS 

Initialize  variables  used  in  the  calcu- 
lations. II  and  12  are  used  to  incre- 
ment subscripts  and  must  be  set  to  1,0 
for  AD  and  to  0,1  for  DA. 

The  required  calculations  are  performed 
and  the  results  are  placed  in  a scratch 
data  set . 

The  results  are  placed  into  the  specified 
part  of  the  worksheet. 


MISC2 


PURPOSE;  This  subroutine  is  used  for  executing  tho  commands  CLOSE, 
COUNT,  SHORTEN,  EXPAND  and  DUPLICATE. 


COMMON  BLOCK 

BLOCKA 

BLOCKD 

SCRAT 

BLOCKE 


VARIABLES  USED 
NFLAG 

RC,  I ARCS,  KIND,  NRMAX,  NARGS,  NR0W,  NCOL 
A 

L2  * 1 CLOSE 

* 2 COUNT 

* 3 SHORTEN 
■ 4 EXPAND 


• S DUPLICATE 


MISC2  (cont,) 


LINE 

NUMBER 

20 

25-28 


29 

30 

33 

34-35 


36-37 


47-48 


52 

54 


FORTRAN 

LABEL  COMMENTS 

There  must  be  at  least  two  arguments. 

50-70  L2  argument  must  be  a constant  (floating 

point)  for  CLOSE (12=1)  and  SHORTEN 
(L2»3).  KIND(L2)  is  set  to  0 for  use 
in  subsequent  checks. 

SHORTEN  requires  exactly  five  arguments. 

Store  the  ono  floating  point  argument  in 
ARG1. 

74  COUNT  must  have  exactly  two  arguments. 

All  arguments  for  CLOSE,  COUNT  and  SHORTEN 
should  appear  to  be  legitimate  column 
numbers . 

90  Adjust  elements  of  IARGS  so  that  they  may 

be  used  most  easily  in  executing  the 
command . 

140  The  command  must  be  applied  to  columns 

IARGS (2)  through  IARGS (NARGS) . K will 
point  to  the  column  being  acted  upon  at 
the  moment. 

148  Compare  each  value  in  a column  with  the 

test  value, 

Cot  out  of  loop  if  all  rows  in  a column 


have  been  chocked. 


80 


LINE 

FORTRAN 

MISC2  (cont.) 

NUMBER 

LABEL 

COMMENTS 

55-58 

155 

J1  points  at  the  value  to  be  deleted. 

Each  value  below  is  moved  up  one  row. 

62-65 

180 

Fill  out  the  column  with  zeros. 

71-79 

200-260 

Execute  the  command  COUNT  by  searching 

for  a non- zero  value  starting  from  the 
bottom  of  the  specified  column. 

83-100 

300-380 

Execute  the  command  SHORTEN. 

84-93 

320-360 

Search  for  the  desired  truncation  point, 

ARG1.  Reset  NRMAX  accordingly, 

94-100 

370,380 

Place  the  shortened  columns  into  the 

105 

400 

\ 

designated  columns. 

The  command  EXPAND  inquires  exactly  four 

\ 

arguments , \ 

! \ 

The  soconid  and  third  arguments  are  expect 

106,107 

j » 

ed  to  (be  floating  po\nt  numbers. 

Chock  to  Lee  if  thero  ar 6 enough  columns 

108 

109-111 

for  £he  rosults,  \ 

\ 

K1  plus  the  indox  of  a DO  ^tatomont  will 

\ 

bo  used  to  insert  results^ in  the 
specified  columns  of  the  worksheet. 

113-118 

450 

If  the  first  argumont  is  a cotjumn  number, 

transfer  the  values  into  the^  scratch 
array  A,  \ 


81 


I 


I 


MISC2  (cont.) 


LINE 

FORTRAN 

, 

NUMBER 

L.'  'EL 

COMMENTS 

120,121 

460,470 

If  the  first  argument  is  a constant,  trans- 
fer the  values  into  A. 

130-138 

570,580 

Complete  execution  of  the  command  EXPAND. 

143-145 

600 

The  command  DUPLICATE  must  have  exactly 
seven  integer  arguments. 

146 

Let  the  ninth  argument  be  the  number  of 
duplications  to  be  performed. 

147-148 

630 

Arguments  2 through  7 become  arguments  1 
through  6. 

149-153 

Arguments  7 and  8 are  implied  and  must  be 
supplied  for  checking. 

156 

The  number  of  duplications  must  be  at  least 

one, 

160-162 

Set  constants  to  bo  used  in  executing  the 
command. 

163-169 

Place  the  array  to  be  duplicated  onto  i* 
scratch  data  set. 

170-180 

Execute  the  command. 

mJLT 

PUR1H)SH : This  subroutine  is  used  for  the  oxccufcion  of  the  command 


MMULT. 


82 


MMULT  (cont.) 


COMMON  BLOCK 

VARIABLES  USED 

1 

BLOCKA 

NFLAG 

\ 

“ j 

BLOCKD 

RC,  IARGS,  NROW,  NARGS 

i 

SCRAT 

LINE 

FORTRAN' 

A 

i 

NUMBER 

LABEL 

COMMENTS 

» 

10 

14 

18-20 

600 

IROWA  is  the  number  of  rows  of  the  result- 
ing matrix. 

Check  the  number  of  arguments. 

All  arguments  must  be  integers. 

i 

t 

i 

i 

. i 

25-36 

820-831 

If  there  are  fewer  than  ten  arguments,  then 

; 

38 

840 

manipulate  the  argument  list  so  as  to 
simulate  the  equivalent  ten-argument 
form. 

In  the  ten -argument  form,  the  fourth  and 

’ i 

i 

J 

i 

' 

39 

1100 

seventh  arguments  must  agree. 

IC0LB  is  the  number  of  columns  of  the 

j 

40 

41-42 

resulting  matrix. 

15  rows  or  15  columns  is  the  limit  on  the 
size  of  the  product  matrix. 

Arguments  11  and  12  must  contain  the 

•r 

43-45 

dimensions  of  the  resulting  matrix. 
Check  that  all  three  matrices  fit  within 

« 

51-66 

3000-3040 

the  worksheet. 

Perform  the  matrix  multiplication  and 

j 

! 

83 


W-fiJLT  (cont.) 


LINE 

NUMBER 


FORTRAN 

LABEL 


COMMENTS 


70-78 


store  the  results  in  a scratch  data  set. 
8080,8100  The  results  are  placed  into  the  designated 

location  in  the  worksheet. 


PURPOSE : This  subroutine  is  used  for  the  execution  of  the  commands 

’ MDEFINE,  ADEFINE,  MZER0,  AZER0,  MERASE,  AERASE,  MIDENT,  MDIAG, 
ADIAG  and  MTRACE. 


COMMON  BLOCK 


VARIABLES  USED 


BLGCKA 


BLOCKD 

SCRAT 


NFLAG 


RC,  IARGS,  KIND,  NROW,  NARGS 


BLOCKE 


L2  8 l MDEFINE 


b 2 ADEFINE 
■ 3 ADIAG 
» 4 MDIAG 
» 5 MZERO 


« 6 AZERO 


a 7 MERASE 


a 3 AERASE 
* 9 MIDENT 


a 10  MTRACE 


! LINE  FORTRAN 

; NUMBER  LABEL 

| . 21  100 

i 

i 

i 

i 

I 

i 

i 

t 

| 

! 23  . 


24,25 

26 

27-32  105 


35 

37 


MOP  (cont.) 

COMMENTS 

For  the  commands  MDEFINE  and  ADEFINE, 
there  must  be  either  four  or  five 
arguments , 

The  last  argument  must  be  a floating  point 
number i 

In  the  four-argument  form,  set  the  fourth 
integer  argument  to  the  value  of  the 
third  integer  argument.  The  fourth 
entered  argument  has  to  be  floating 
point  and  thus  is  stored  in  the  array 
ARG5, 

Set  constants  for  lator  use. 

The  first  J arguments  must  be  integers. 

For  this  command,  tho  last  argument 
will  not  be  an  intogor. 

This  code  is  used,  for  all  the  commands 
executed  in  this  subroutine,  to  check 
that  tho  required  arguments  are  integers 
and  that  the  matrix  fits  into  the  work- 
sheet, 

JB  is  the  boginning  of  tho  matrix  in  the 
worksheet, 

N is  the  number  of  rows  in  the  matrix. 


85 


LINE 

NUMRER 

36 

40-48 

49 

51-57 

58-69 

66-79 

82-85 

87-89 


MOP  (cont . ) 

FORTRAN 

LABEL  COMMENTS 

Nothing  more  is  necessary  to  execute  the 
command  MTRACE  (L2=10). 

110,120  CONST  is  placed  into  the  KA*th  column  of 

the  matrix  and  then  CONSTA  is  placed 
into  the  KA'th  row  of  tho  column  if 
required. 

Additional  codo  must  be  executed  for  the 
commands  MDIAG  and  AD1AG  (L2=3,4). 

150  For  the  commands  MZERO,  ME RASE,  AZERO  and 

AERASE,  chock  for  errors  and  set 

constants  to  0, 

160-170  For  the  command  MIDENT,  set  constants  to 

0 and  1 and  chock  arguments. 

180-188  For  tho  commands  MDIAG  and  ADIAG,  set 

constants  to  0 and,  if  tho  last  argu- 
ment is  a column  number,  store  tho 
column  in  the  scratch  array  A,  Also 
chock  arguments  for  errors. 

200  Place  tho  designated  constant  into  the 

diagonal  of  the  matrix  for  tho  commands 
MDIAG  and  ADIAG. 

220,230  Place  the  designated  column  into  the 

diagonal  of  tho  specified  matrix. 


i/.., 

*y; 

I 86 


MOP  (cont.) 


LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

91-98 

250 

Check  arguments  and  prepare  for  execution 

of  the  command  MTRACE . 

100-104 

260,270 

Calculate  the  trace  of  a matrix. 

MOVE 

PURPOSE ; This  subroutine  is  used  for  executing  the  commands  MOVE, 
BLQCKTRANSFER,  AMOVE  and  MMOVE. 

COMMON  BLOCK  VARIABLES  USED 

NFLAG 

RC,  IARGS,  NROW,  NARGS 
A 

FORTRAN 

LABEL  COMMENTS 

MWinX—m—  WM  •itiivin  » 

There  must  bo  exactly  six  arguments. 

70  All  arguments  must  be  integers. 

The  dimensions  of  the  second  matrix  arc 
takon  from  those  of  the  first. 

Check  that  the  two  matrices  fit  into  the 
worksheet. 

Copy  tho  first  matrix  onto  a scratch  data 
set. 


BLQCKA 

BLOCK!) 

SCRAT 

LINE 

NUMBER 

13 

23-25 

26-27 

‘ 28-30 


33-40 


100,110 


LINE 

NUMBER 


FORTRAN 

LABEL 


•K. 


87 

MOVE  (cont,) 

COMMENTS 

Replace  the  second  matrix  by  the  one  in 
the  scratch  data  set. 

MRAISE  . 

o is  used  for  executing  the  command  MRAISE. 

VARIABI.ES  USED 
NFLAG 

RC,  I ARCS,  KIND,  NROW,  NARGS 
A 

COMMENTS 

ISXZB  will  contain  tho  dimension  of  tho 
matrices  which  must  bo  square. 

Thoro  must  be  either  six  or  seven  arguments 
J points  to  the  power  to  which  tho  matrix 
is  to  bo  raised. 

The  ninth  argument  will  now  contain  the 
power  which  must  be  at  least  one. 

All  arguments  must  bo  integers. 

If  the  power  is  a floating  point  numbor, 
change  it  to  an  integer  so  that  the 

above  chocks  will  not  detect  that  it  was 
entered  as  a floating  point  numbor. 


88 


LINE 

NUMBER 

36 

37,38 


40-42 

43-45 

SI 

S3 


S4-64 


66-95 


67 


68-71 


FORTRAN 

LABEL 


1100,1150 


4030,4040 


4050-5040 


4060 


MRAISE  (cont.) 

COMMENTS 

Check  for  squareness  in  the  seven-argument 
form. 

In  the  seven-argument  form,  the  sixth  and 
seventh  arguments  become  the  fifth  and 
sixth  arguments. 

Set  the  required  arguments  equal  to  the 
given  dimension  of  tine  matrix. 

Check  to  see  if  tho  two  matrices  fit  into 
the  worksheet. 

WPGW  will  be  tho  number  of  matrix  multi- 
plications to  be  performed. 

If  the  matrix  is  to  be  raised  to  tho  first 
power  and  the  two  specified  matrices 
are  the  same,  nothing  needs  to  bo  done. 

Novo  the  matrix  to  the  specified  locution 
sinco  no  multiplication  is  required. 

This  loop  forces  the  required  multiplica- 
tion to  bo  done  the  specified  number 
of  times. 

ISAVP  will  point  toward  the  result  matrix. 

1RP  points  toward  the  matrix  which  resulted 
from  tho  previous  matrix  multiplication 
and  must  initially  point  at  tho  matrix 


MRAISE  (cont.) 

LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 

specified  first  in  the  argument  list. 

72-95  4070-5040  Perform  tho  matrix  multiplication. 

79-82  4080  The  row  from  the  previous  stop  must  be 

saved  in  a scratch  array  since  the  row 

will  be  replaced  as  each  element  is 

obtained. 


MSCRQW 


PURPOSE;  ibis  subroutine  is  used  for  executing  tho  commands  PAUSUM, 
PARPROD,  RMS,  AVERAGE  and  SUM. 

VARIABLES  USED 
Ni’LAG 

RC,  I ARCS,  KINO,  NRMAX,  NARGS,  NROW 
L2 « i mm) 

« 2 PARPROD 
b 5 RMS 
= 4 AVERAGE 
a S SUM 


LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

12 

ELEM  will  be  used  for  summing  a column 

* 

16 

40 

Obtain  tho  address  of  the  first  column 

COMMON  BLOCK 
BLOCKA 
BLOGKD 
BLOCKii 


MSCROW  (cent.) 


LINE 

NUMBER 

t ORTRAN 
LABEL 

COMMENTS 

20 

60 

CJl). 

Obtain  tho  address  of  tho  result  column 

25,26 

140 

(J2). 

Three  or  more  arguments  are  legal  only 

28-51 

100 

for  the  command  SUM  (L2  = 5). 

All  arguments  between  tho  first  and  last 

32 

58-42 

155 

must  be  row  numbers, 
for  tho  four- argument  form  of  SUM,  tho 
second  argument  cannot  exceed  the  third, 
for  tho  four-avgumont  form,  sum  from  row 

43 

160 

12  to  row  15. 

Store  tho  result  in  the  indicated  column 

48-50 

170,100 

of  tho  worksheet . 

Sura  the  values  in  the  indicated  rows. 

60-70 

220-240 

Obtain  partial  sums  and  partial  products. 

75-78 

280,290 

Obtain  RMS. 

S-.-8S 

500,310 

Sura  over  all  rows  of  a column. 

87 

Obtain  a coluran  average. 

MTXCliiC  (J) 

PURPOSE v.  this  subroutine  chocks  to  see  if  the  first  J matrices 
defined  in  tho  argument  list  fit  within  the  worksheet  anti 
locates  the  starting  point  of  each  ©no  within  the  worksheet 


91 


WTXCHK  (J)  (cont.) 

array  RC. 

COMMON  BLOCK  VARIABLES  USED 

BIOCKD  IARGS,  KIND,  NROW,  NCOL 


LINE 

NUMBER 

20 


21 

22-26 


27-32 


34 


FORTRAN 

LABEL  COMMENTS 

J is  the  number  of  matrices  to  be  checkod, 
thus  JB  is  the  number  of  arguments 
required. 

J will  bo  0 if  no  error  is  dotoctod. 

100  J is  sot  to  1 if  a negative  argument  is 

encountered. 

120  Chock  that  oaeh  matrix  fits  into  the 

worksheet  and  set  IARGS(I)  to  point 
to  tho  uppor  loft  hand  coiner  of  the 
matrix. 

130  J is  sot  to  2 if  a matrix  overflows  tho 

worksheet. 


MXTX 


PURPOSE ; This  subroutine  is  used  for  executing  tho  commands  M(XX*) 
and  M(X»X), 

> ■ . 

COMMON  BLOCK  VARIABLES  USED 


BLOCKA 


NPLAC 


COMMON  BLOCK 


VARIABLES  USED 


BLOCKD 

BLOCK? 

SCRAT 

BLOCKE 


LINE 

NUMBER 

— mm o 

19-21 


23 

25 

27 

31-33 


RC,  IARGS,  NARGS,  NROW 

NCTOP 

A 

L2  « 1 M(XX‘) 

* 2 M(X*X) 

Note:  For  other  values  of  L2„  subroutines 

are  called  which  execute  the 
commands  M(X’AX),  M(XAX'),  M(AD), 
M(AV) , M(V'A). 

FORTRAN 

LABEL  COMMENTS 

10,20  When  L2  is  2,  the  command  was  M X,  If 

the  number  of  arguments  is  six  or  loss, 
then  tho  command  is  assumed  to  be 
M(X’X).  Otherwise,  tho  command  is 
assumed  to  bo  M(X'AX). 

40  Coll  tho  subroutine  MDAMAD  for  the  commands 

M(AP)  and  M(DA). 

00  Call  tho  subroutine  ARYVEC  for  tho  commands 

M(AV)  or  M(V'A). 

100  Tho  commands  M£XX‘J  and  M(X'X)  must  have 

oithor  five  or  six  arguments. 

All  arguments  must  bo  integers. 


93 


LINE 

FORTRAN 

MXTX  (cont.) 

NUMBER 

LABEL 

COMMENTS 

38-41 

Transform  the  five-argument  form  into  an 

42-44 

equivalent  six-argument  form. 
Obtain  the  implied  dimensions  of  the 

47-49 

200 

resulting  matrix  and  check  to  see  that 
it  is  not  too  large. 

Check  to  see  that  the  two  matrices  fit 

59-62 

within  the  worksheet. 

Prepare  constants  for  the  command  M(XX'). 

64-67 

320 

Prepare  constants  for  tho  command  M(X‘X). 

68-85 

340-440 

Perform  tho  matrix  multiplication  and 

89-99 

500,520 

store  tho  rosults  in  tho  scratch  data 
sot. 

Place  tho  rosults  into  tho  designated 

location  in  tho  worksheet. 

WNAMR  (NAME) 

PURPOSE:  lids  subroutine  converts  a string  of  up  to  six  letters  into 

two  numerical  values  with  the  first  three  letters  determining 
NAMB(l)  and  the  last  throe  determining  NAME (2). 

COMMON  Dl.OCK  VARIABLES  tlSBI) 


BLOCKA 


M,KARD 


94 


LINE 

NUMBER 

41,42 

43-47 


48-50 

51,52 


NNAME  (NAME)  (cont.) 

FORTRAN 

LABEL  COMMENTS 

10  Elements  of  MISC  not  changed  later  must 

be  0. 

20  The  array  KARD  contains  a numerical 

representation  of  the  input  line.  Up 
to  six  characters  will  be  checked. 
Translation  stops  if  a non-letter  is 
found.  Tho  value  of  MISC(I)  is  t.he 
position  of  the  i'th  letter  of  the 
string  in  tho  alphabot,  i.o.  MISC(I)=1 
for  A and  MISC(I)=26  for  Z. 

30  Scan  for  the  first  non-lottor  following 

tho  string. 

Hie  NAME  array  contains  two  values  which 
together  uniquely  identify  tho  letter 
string. 


NONBLA(t) 

PURPOSE ; This  function  subprogram  searches  for  a non-blank  character 
starting  with  the  M’th.  The  value  returned  will  Identify  the 
character  and  M will  indicate  its  position. 

COMMON  BLOCK  VARIABLES  USED 


BLOCKA 


N,KARD 


95 


PURPOSE: 

and 

LINE 

NUMBER 

4,5 

6 

6-10 

11 

12 

13 

14 

15,16 


17-20 

21,22 


OMCONV  (NWCD,  KRD,  KRDEND) 

4 

This  subroutine  takes  an  array  of  KRDEND  characters  in  NWCD 
converts  them  into  a numerical  code  in  KRD. 

COMMENTS 

Store  the  addrosses  of  NWCD  and  KRD  in 
registers  3 and  4. 

Move  80  bytes  from  NWCD  to  KRD. 

Store  constants  0,  1,  4 in  registers  5,  7, 

8. 

Store  tho  address  of  KRDEND  in  register  9. 

Load  the  value  of  KRDEND  into  register  11. 

Register  6 will  bo  used  to  control  tho  BCT 
instruction  below. 

The  logs  will  bo  executed  KRDUND-1  times. 

The  first  KRDEND- 1 bytos  obtained  in  the 
translation  must  be  moved  so  that  there 
are  three  bytes  between  each  of  thorn. 

Tho  move  must  bo  performed  from  right 
to  left  and  register  11  will  contain 
the  relative  addross  of  the  stovu®e  byte. 

This  loop  actually  moves  tho  required  bytes 
using  register  5 to  zero  out  tho  three 
bytos  between  successive  non-zero  bythos. 

Performs  a last  move. 
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OMCONV  (NWCD,  KRD,  KRDEND)  (cont.) 

LINE 

NUMBER  COMMENTS 

24-42  Set  up  the  translation  tables. 


OMNIT 


PURPOSE;  This  is  the  principal  subroutine  and  controls  execution  of 
the  entire  program. 


COMMON  BLOCK 
BLOCKA 

BLOCKD 

BLOCKE 

KPLOT 

QUS 

BLANK 

LINE  FORTRAN 

NUMBER  LABEL 

2S 

26-28 

29-30 

31 


VARIABLES  USED 

MODE,  M,  KARD,  KARO,  ARG,  ARG2,  NEWCD, 
NEWCDS,  KSAVE,  NSAVE,  NPLAG 
ARGTAB,  NARGS 
NAME,  LI,  ISRFLG 
NFUAME,  KKND,  SIZE,  SPACE 
JROW 

KEY,  IOVLY,  I TYPE 


■COMMENTS 

4 is  the  unit  numoer  for  a data  set  used 
in  displaying  desired  text  on  the  CRT 
screen. 

Initialise  constants. 
v Prepare  for  interrupts. 

Present  the  initial  display  of  instructions. 


OMNIT  (cont.) 


LINE 

NUMBER 

32- 3S 

36 

37 

38 
42 

S0-S6 

61 

63-74 

75 

82-G4 


FORTRAN 

LABEL  COMMENTS 

50  The  NAME  array  must  be  zeroed  out  before 

a new  name  is  read. 

Start  the  number  of  arguments,  NARGS,  at 

0. 

J will  be  the  index  of  an  array  ARGTAB 
which  contains  information  about  the 
arguments  of  a command. 

52  If  KEY  is  31  then  return  to  tho  GMS  monitor 

Write  READY  on  the  screen  except  when  tho 
previous  command  was  not  executed  or 
was  MINVBRT,  INVERT,  LINEAR  or  MLINEAU 
or  when  in  input  mode  activated  by 
READ  command. 

524,5240,999  Write  out,  on  the  screen,  the  row  number 

of  the  next  row  to  be  entered. 

525  Await  user's  command. 

53,535  Those  statements  process  interrupts  from 

tho  programmed  function  keyboard. 

54  Call  the  subroutine  INPUT  to  process  a 

command  entered  from  the  regular  key- 
board. 

55  M will  be  incremented  so  as  to  enable  the 


entire  line  to  bo  read 


98 


LINE  FORTRAN 

NUMBER  LABEL 


85 


87,88 


92  70 


100-102 

106,107  87 

111-119  88,884,885 


129 

150 

131 


OMNIT  Ccont.) 

COMMENTS 

Ship  all  special  characters  except  for 
If  $ is  encountered  then  processing 
for  the  current  line  may  cease. 

Numbers  in  the  line  before  the  command 
are  illegal  except  in  the  input  mode. 

When  a letter  is  found,  call  tho  sub- 
routine NNAME  to  compilo  it  and  store 
its  numerical  equivalent  in  NAME(l) 
and  NAME (2). 

When  tho  command  is  OMNITAB,  rosot  certain 
variables  and  restart. 

When  tho  command  is  STOP,  return  control 
to  the  GMS  monitor. 

Hie  command  ROW  is  legal  only  when  in  the 
READ  initiated  input  mode.  Determine 
its  argument  and  x*osot  tho  row  counter, 
JUOW,  accordingly. 

Branch  to  100  for  numbers  and  to  90  for 
letters. 

Branch  to  100  for  asterisks. 

Brandi  to  200  for  end  of  lino. 
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LINE 

NUMBER 

137 

142-143 

157 

159,160 

166,167 

170-172 

ISO-185 


OMNIT  (cont.) 

FORTRAN 

LABEL  COMMENTS 

90  A second  name  following  the  command  may 

be  a command  qualifier  and  must  be 
treated  as  the  command  was  treated. 

At  least  one  character  can  be  skipped  if 
the  command  was  M. 

Call  the  subroutine  AARGS  when  a string 
of  numbers  is  found. 

103  When  a floating  point  number  is  found, 

sot  the  J’th  element  of  ARGTAB  to  0. 
The  aetual  number  will  be  the  next 
elomont  in  ARGTAB. 

105  Add  8192  to  an  integer  argument  and  chock 

that  it  is  greater  than  0.  This  will 
distinguish  it  later  from  other  typos 
of  arguments. 

110,115  Place  the  assembled  argument  into  ARGTAB 

and  increase  by  1 the  number  of 
arguments. 

120,125  KAlvG=l  if  only  one  asterisk  is  found. 

KAKG=0  if  two  asterisks  are  found. 

The  subroutine  ASTER  is  used  to 
assemble  arguments  involvin'?  asterisks. 


100 


LINE 

NUMBER 

205 

207-211 


213-216 


265 


266-269 


271-282 

287-289 


OMNIT  (cont.) 

FORTRAN 

LABEL  COMMENTS 

135  The  value  of  ARGTAB(J)  will  indicat'*  the 

variable  and  its  type. 

140  A worksheet  reference  requires  a pair  of 

values  in  ARGTAB.  The  sign  of  the 
second  indicates  whether  the  worksheet 
roferonce  is  to  be  floating  point  or 
integer. 

150,155  If  a string  of  three  or  more  asterisks  is 

found,  sot  ARGTAB (J)  t»o  -1,  except 

* 

when  J is  1.  An  error  occurs  when  an 
asterisk  string  is  not  preceded  by  an 
argument . 

202  Call  the  subroutine  EXPAND  to  convert  the 

information  in  ARGTAB  into  a form 
which  is  used  by  the  subroutines 
which  execute  the  commands. 

204  Data  enters  the  worksheet  following  a 

BEAD C ISRPL6*G)  or  SET(lSIU;LG=l) 
command. 

9002-9006  the  entered  line  is  saved  for  later  recall 

210  Check  name  against  dictionary  of  names  by 

calling  LOOKUP . If  11  is  not  0,  the 
name  was  found  in  the  dictionary.  If 
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OMNIT  (cont.) 


LINE 

NUMBER 


FORTRAN 

LABEL 


COMMENTS 


no  name  is  found,  an  error  results  if 
the  program  is  not  in  the  input  mode. 

Reset  MODE  to  1,  tho  interpretive  mode. 

See  comment  for  line  265. 

Call  the  subroutine  XECUTE  which  calls 
the  appropriate  subroutine  necessary 
to  execute  the  given  command. 

Go  back  to  the  beginning  for  tho  next 
command. 


PDMOTE 


PURPOSE;  This  subroutine  is  used  for  executing  the  commands  PROMOTE 
and  DEMOTE, 


COMMON  BLOCK 


VARIABLES  USED 


BLOCKA 


Nl-'LAC 


BLOCK!) 

DnOCKE 


RC,  1AUGS,  NHMX,  NROW,  NAUGS,  NCOL 
L2  « 10  PROMOTE 


= 11  DEMOTE 
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LINE 

NUMBER 

13 

14 
18 

20-22 

26,27 

34-36 

41 

4S-S2 

54,55 


PDMOTE  (cont.) 


FORTRAN 

LABEL 


30 

31 

52 

40 


100 


COMMENTS 

L2  is  transformed  o 0 for  PROMOTE  and  to 
1 for  DEMOTE. 

There  must  b^  ui  odd  number  of  arguments, 

NR  is  the  length  of  the  shift. 

Shift  all  the  arguments  but  the  first. 

Thus  the  first  NARGS(NARGS-l)  arguments 
should  bo  column  numbers. 

Chock  to  seo  if  tho  arguments  are  legiti- 
mate column  numbers, 

If  tho  shift  is  negative,  change  it  to  bo 
positive,  The  value  of  L2  must  also 
he  changed. 

For  the  command  DEMOTE,  check  that  the 
execution  will  not  vouch  beyond  the 
end  of  any  column. 

If  the  only  argument  for  PROMOTE  is  NRMAX, 
then  the  entire  worksheet  will  be 
zeroed  out. 

LIMIT  is  twice  the  number  of  columns  to  bo 
promoted  or  demoted.  If  no  columns  are 
specified,  then  all  columns  are  to  be 
used. 
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PDMOTE  (cent,) 


LINE 

NUMBER 


FORTRAN 

LABEL 


COMMENTS 


64-66 


Set  constants  when  no  columns  are  speci- 
fied. 


68,69 


Set  constants  when  columns  are  specified. 


74-r,9 


Execute  the  command  DEMOTE. 


84-89 


150,160 


In  response  to  the  command  PROMOTE,  move 
the  first  column  into  the  second  of  a 
pair  of  columns.  The  first  NR  will  be 


94-97 


lost. 


If  columns  are  specified,  fill  the  bottom 
of  the  second  of  a pair  of  columns 


with  0's. 


If  the  command  was  DEMOTE,  then  NRMAX 


must  be  increased. 


PFINT 


PURPOSE:  This  subroutine  sets  ITYPE  to  1 when  the  wait  state  is 

interrupted  by  depression  of  a programmed  function  key,  KEY 
is  set  to  the  number  of  the  key  which  was  depressed. 


COMMON  BLOCK 


VARIABLES  USED 


ITYPE,  KEY 


PHYCON (NAME) 


PURPOSE ; This  subroutine  locates  a physical  constant  when  one  is 
used  and  finds  its  value. 


COMMON  BLOCK 


VARIABLES  USED 


BLOCKA 


PCONST 


LINE 

NUMBER 


FORTRAN 

LABEL 


COMMENTS 


Check  to  see  if  NAME  is  a predefined 
constant. 

Set  ARG  to  0 if  NAME  does  not  correspond 
to  a name  in  the  constant  table  N, 
Obtain  the  value  of  the  constant  from  P* 


PURPOSE;  This  subroutine  displays  a command  after  it  has  been 

enterod  and  gives  the  user  a chance  to  chock  it  before  having  it 
oxocuted. 


COMMON  BLOCK 


BLOCKA 


KPLOT 


BLANK 


VARIABLES  USED 
NEWCD,  NPLAG 

NFRAME,  KKND,  SIZE,  SPACE 
KEY,  ITYPE 


I 


■M'S.'i"  £■■ 

’Mr  '> 


PLBK  (cont.) 


LINE 

NUMBER 


FORTRAN 

LABEL 


COMMENTS 


13-16 


23-24 


Display  the  line  which  the  user  has  just 
entered. 

Inform  the  user  that  there  is  no  syntax 
error  and  ask  him  to  confirm  the 
command  or  cancel  it. 

Transmit  the  CRT  image  to  a data  sot  for 
plotting. 

NFLAG  is  set  to  1 to  halt  execution  of 


the  command. 

Erase  the  command  from  the  screen. 


PRGRAM(IOl) 


PURPOSE;  This  subroutine  is  used  for  displaying  the  program  which 
tho  user  has  writ ton. 


COMMON  BLOCK 


VARIABLES  USED 


BLOCKA 


KPLOT 


BLANK 


NEKCDS,  KSAVB,  N8AVE 
NPRAMB,  KKND,  SIZE,  SPACE 
KEY,  IOVLY,  1TYPE 


LINE 

NUMBER 

13-22 


FORTRAN 

LABEL 


COMMENTS 


The  user  is  given  a chance  to  see  the 
commands  he  has  entered  if  lie  fills 


106 


4 


LINE 

NUMBER 


23-25 

47-49 

66-68 

11 


34 

35-41 


55-60 


FORTRAN 

LABEL 


PRGRAM(IOl)  (cont.) 

COMMENTS 

up  the  space  for  storing  commands. 
There  is  space  available  for  200 
lines. 

Transmit  CRT  image  to  a data  set  for 
plotting  on  CALCOMP, 

101  will  be  0 when  the  user  docides  to 
list  his  program  on  the  screen. 
IOVLY  is  the  associated  variable. 

Read  the  entered  program  from  data 
set  NSAVE  and  write  it  onto  the 
1 screen. 

Write  out  any  lines  which  have  not  yet 
been  stored  on  tho  data  set. 

PR0R0W 


PURPOSE:  This  subroutine  is  used  for  executing  tho  commands 

R0WSUM  and  PRODUCT, 


40 


COMMON  BLOCK 
DLCCKA 
BLOCKD 
BLOC  KB 


VARIABLES  USED 
NPLAG 

RCj  I ARCS,  NRMAX,  NROW,  NAUGS 
L2  * 1 ROWSUM 
O 2 PRODUCT 


M 


oa. 

UN- 


COMMON BLOCK 


SCRAT 


PROROW  (cont.) 
VARIABLES  USED 
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LINE 

NUMBER 

13-22 

25,26 

27,23 

30-37 


38-41 


43-52 


FORTRAN 

LABEL 

40-60 


140,150 


170,180 


200-250 


COMMENTS 

Check  for  errors, 

CONST  must  be  0 for  ROWSUM  and  1 for 
PRODUCT. 

Rowsums  and  products  are  accumulated  in 
the  array  A, 

Obtain  row  sums  or  row  products  for  the 
three- argument  form  where  IA1  is  the 
beginning  of  the  first  column  and  IA2 
is  the  beginning  of  tho  second  column 
in  tho  argument  list,  Accumulate  the 
results  in  tho  scratch  array  A. 

Storo  the  rosults  into  specified  column 
in  the  worksheet. 

Obtain  row  sums  or  row  products  when 
specific  columns  rather  than  a range 
of  columns  is  specified. 
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READQ 

f 

PURPOSE : This  subroutine  is  used  when  the  program  is  in  input  mode 

to  set  a line  of  data  into  the  appropriate  row  following  a 
READ  command. 

COMMON  BLOCK  VARIABLES  USED 


BLOCKA 

NEWCD 

BLOCKD 

RC,  I ARCS,  KIND,  NRMAX,  NROW 

QRS 

» 

J,  NNARG 

LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

19-30 

A row  of  data  is  entored  into  the  work 
sheet . 

27 

Write  the  row  of  data  onto  the  screen. 

31,32 

J contains  the  number  of  rows  entored, 
NRMAX  is  adjusted,  if  necossary. 

UEADX 

PURPOSE;  This  subroutine  is  called  to  execute  tho  command  READ. 

COMMON  BLOCK  VARIABLES  USED 

BLOCKA  MODE,  NEWCD 

BLOCKD  ARCS  (cquivalonccd  to  the  end  of  KC), 


I ARCS,  NAUGS 


READX  (cont.) 


COMMON  SLOCK 

BLOCKE 

QRS 

LINE 

NUMBER 

13-19 

24 

32*35 

33 

37 


PURPOSE; 

COMMON  BLOCK 

ELGCKA 

BLOCKD 

BLOCKE 


VARIABLES  USED 

ISRFLG 
J,  NNARG 

FORTRAN 

LABEL  COMMENTS 

5-15  Check  for  errors, 

MODE  = 2 indicates  that  data  are  entered, 
30  Process  the  argument  list. 

Column  addresses  are  stored  starting  at 

the  40th  element  of  IARGS. 

NNARG  will  contain  the  numbor  of  columns 
into  which  data  aro  entered. 

RESET 

This  subroutine  is  used  for  executing  the  command  RESET. 

VARIABLES  USED 
NFIAG 

IARGS,  ARCS  (oquivaloncod  to  the  end  of 
RC),  KIND,  NIIMAX,  NROW,  NARGS,  -VWXYZ 
L2  « 1 V 
a 2 W 
« 3 X 


« 4 Y 


COMMON  BLOCK 


LINE 

NUMBER 

12 

19 


25 

32 

33 


PURPOSE: 

filo 

COMMON  BLOCK 

BLGCKA 

BLANK 


110 


RESET  (cont.) 

VARIABLES  USED 
» 5 Z 
= 6 NRMAX 

FORTRAN 

LABEL  COMMENTS 

Only  one  argument  is  allowed. 

30  NRMAX  is  an  integer.  Thus  a real  argu- 

ment must  be  transformed  into  an 
integer  argument. 

Reset  NRMAX. 

Real  arguments  are  oxpectod.  Transform 
integer  arguments  into  real  ones, 
Rosot  the  designated  variable. 

SCRAM (NC, IT) 

This  subroutine  is  used  to  road  and  write  from  a scratch 

when  the  scratch  array  A alone  is  not  sufficiently  largo 

VARIABLES  USED 

NSAVE 

IOVLY 


SCRAT 


A 


LINE 

NUMBER 

4 


5 

6 


PURPOSE: 

SET. 

COMMON  BLOCK 

BLOCKA 

BLOCKD 

BLOCKE 

QUS 

urn 

NUMBER 

20 


SCRAM (NC, IT)  (cont.) 

FORTRAN 

LABEL  COMMENTS 

IPTR  is  used  to  hold  the  value  of  the 
associated  variable  IOVLY  which  is 
used  for  storing  the  lines  of  a 
program . 

The  first  forty  records  are  reserved 
for  entered  program  lines. 

IT  is  2 for  write  and  1 for  read. 

SET 


This  subroutine  is  called  in  response  to  the  command 


VARIABLES  USED 
NFLAG,  MODE 

I ARCS,  KIND,  NROW,  NARGS 

ISRFLG 

NDROW,  J 

FORTRAN 

LABEL  COMMENTS 

2G  NDROW  marks  the  ond  location  of  tho 

column  in  the  worksheet. 
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LINE  FORTRAN 

NUMBER  LABEL 


26  24 


29 

30 


SET  (cont.) 

COMMENTS 

J,  which  marks  the  location  at  which 
storage  is  to  begin,  must  be  increas- 
ed if  row  1 is  not  the  first  row  to 
be  used. 

ISRFLG=1  indicates  SET  command. 

M0DE=2  is  tho  data  input  mode. 


5ETQ 


PURPOSE;  This  subroutine  is  used  for  entering  data  into  tho 
worksheet  following  a SET  command. 


COMMON  BLOCK 

VARIABLES  USED 

BLOCKA 

NPLAG 

BLOCKD 

r V IARGS,  KIND,  NRMAX,  NROW,  NARGS 

QRS 

NDROW,  J 

LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

17 

J and  JJ  mark  tho  first  and  last  rows 

into  which  tho  arguments  will  be 
placed. 

i 


SETQ  (cont.) 


LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 

If  there  are  too  many  arguments  to  fit 

into  the  column,  the  user  is  notified 

of  this  fact  and  may  cancel  the 

command. 

If  some  of  the  arguments  can  be  inserted 
into  the  column,  JJ  is  reset  to  the 
ond  of  the  column. 

15,20,30  The  arguments  are  entered  into  the  work- 

sheet. 

J is  reset  to  mark  the  row  whoro  storage 
will  resume  with  the  noxt  command. 
Roset  NRMAX  if  its  current  valuo  has  boon 
exceeded. 

SORDER 

PURPOSE i This  subroutine  is  used  for  executing  the  commands  SORT, 

ORDER,  HIERARCHY, 

COMMON  BLOCK  VARIABLES'  USED 

BLOCKA  NPLAG 

BLOCKD  RC,  I ARCS,  NRMAX,  NARGS 

A 


18-20 

24,25 

28-35 

36 

37 


SCRAT 


SORDER  (cont.) 


COMMON  BLOCK 
BLOCKE 

LINE  FORTRAN 

NUMBER  LABEL 

14-21  10-50 

22,23  60 

29-32 

35-38  130,140 

39-53  160,200 

54-59  210,230 

60-62  240,250 

63 


VARIABLES  USED 

L2  = 8 SORT 
» 9 ORDER 
e 14  HIERARCHY 

COMMENTS 

Check  for  errors. 

The  command  HIERARCHY  (L2=14)  must  have 
exactly  two  arguments . 

If  NRMAX=1,  do  nothing  for  SORT  and  ORDER 
or  place  a 1 in  the  column  indicated 
by  the  second  argument  for  HIERARCHY. 

Placo  the  column  into  A and  tho  row 
numbers  into  NUM, 

Order  tho  columns  from  low  to  high  in  A, 
NUM(l)  will  contain  tho  row  number 
of  the  I*th  ordered  value. 

Completed  tho  HIERARCHY  command  by  plaee- 
ing  tho  ranks  of  the  fist  column  into 
the  second  column. 

Replace  the  original  column  by  the  ordered 
column. 

Nothing  else  needs  to  be  done  if  there  is 


just  one  argument. 


ns 


§ 


LINE  FORTRAN 

NUMBER  LABEL 

64-68 

69-77  290-310 


SORDER  (cont.) 

COMMENTS 

Prepare  to  sort  the  next  column. 
Rearrange  subsequent  columns  using  the 
ordering  obtained  for  tho  first. 


SPINV(M,DET) 


PURPOSE;  This  subroutine  inverts  a matrix  of  dimension  M using 
Gaussian  elimination  and  calculates  its  determinant,  DET. 


COMMON  BLOCK 
SCRAT 

LINE  FORTRAN 

NUMBER  LADEt 

12 

13 

14 

15-36  12,13,20 

41,42  30 


VARIABLES  USED 
A (equivalenccd  with  D) 


COMMENTS 

■Initialize  DET  to  1 so  that  the  value  of 
tho  determinant  can  be  determined  later 
by  multiplying  the  pivotal  elements, 

N is  tho  number  of  rows, 

N2  is  the  number  of  columns. 

Search  for  the  largest  element  iit  the  L’tli 
column.  Start  initially  at  column  1. 

C is  tho  largest  element  in  the  C*th 
column.  If  it  is  0,  then  the  matrix 
is  singular  and  the  determinant  is  0, 
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SPINV(M,DET)  (cont.) 


LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

48 

22 

Check  to  see  if  any  interchanging  of  rows 
is  necessary.  Tho  L'th  row  must 
contain  the  largest  element  in  the 
L'th  column. 

49-56 

24,25 

Switch  row  J1  and  row  L. 

60-80 

32,3235,321- 

325 

Zero  out  all  dements  except  the  pivotal 
element  in  the  Lth  column. 

76,77 

Check  for  near  singularity. 

85-92 

Divide  by  tho  pivotal  elements  and 

calculate  tho  determinant. 


STATD 

PURPOSE;  litis  subroutine  is  used  for  executing  the  commands  YORMX, 
YORMP,  YQRMZ,  GAMX,  GAMP,  GAMZ,  DUX,  CHIP,  DUE,  TOC,  HP, 


TTZ  , IHiTAX, 

BETAP,  BETAS,  W*X,  HP,  IF 

Z. 

COMMON  BLOCK 

VARIABLES  USED 

8LOCKA 

NPLAG 

BLOCK!) 

RC,  NRMAX,  NAHGS 

'’LOCKE 

L2  a 1 YORMX 

» 2 

YORMP 

= 3 YORMZ 

= 4 

GAMX 

* 5 GAMP 


a 6 GAMZ 
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I 

COTTON  BLOCK 

I 

v. 


LINE  FORTRAN 

NUMBER  LABEL 

15-17 

18,19 

24  40  ' 

26-32  45,50 


40,41 


STATD  (cont.) 
VARIABLES  USED 


= 7 

CHIX 

= 8 

CHIP 

= 9 

CHIZ 

=10 

TTX 

=11 

TTP 

=12 

TTZ 

=13 

BETAX 

=14 

BETAP 

=15 

BETAZ 

=16 

FFX 

=17 

FFP 

=18 

FFZ 

COMMENTS 

Check  for  correct  number  of  arguments. 

IL  will  point  to  the  beginning  of  the 
column  in  which  the  results  ere  to  be 
placed. 

ILZ  will  point  to  the  end  of  the  column 
of  results. 

Convert  all  arguments  except  for  tho  last 
one  into  a form  which  can  be  used  by 
tho  execution  loops  later.  Both 
constants  and  column  numbers  are 
acceptable  arguments. 

J will  bo  1 if  all  arguments  but  the  last 
are  constants.  Tho  function  will  only 
be  evaluated  once  if  INDEX1  is  100 
and  repeatedly  if  INDEX1  is  105. 
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LINE 

NUMBER 

42,43 


44-49 


51 


S3*- 55 


56,57 


53-60 


I 

i 


STATD  (cont.) 

1 FORTRAN 

LABEL  COMMENTS 

This  computed  GO  TO  is  used  only  once  and 
passes  control  to  the  section  of  the 
subroutine  in  which  the  required 
evaluation  is  performed. 

80-90  Obtain  the  next  arguments  to  supply  to 

the  subroutines  which  execute  the 
required  task. 

100  Y is  the  value  of  the  function  with  the 

given  arguments.  Place  it  in  the 
designated  column. 

Place  the  value  of  the  function  into  a 
row  of  the  designated  column  and 
increment  IL  so  that  the  next  row  will 
be  used  next.  If  the  end  of  the 
column  has  been  oxceodetl  thon  execution 
is  finished. 

This  assigned  GO  TO  is  usod  for  all 
arguments  but  the  first  and  passes 
control  to  the  required  section  of  the 
worksheet. 

903  Y is  sot  to  0 if  an  arithmetic  orror 

occurs  and  exocuticn  continues. 
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LINE 

FORTRAN 

STATD  (cont.) 

NUMBER 

LABEL 

COMMENTS 

61-130 

110-281 

Each  of  the  commands  is  executed  by  a 

call  to  a subroutine  within  this 
section  of  the  program. 

TRANSF 

PURPOSE;  This  subroutine  is  used  for  oxecuting  the  commands 
M(X'AX)  and  M(XAX»). 


COMMON  BLOCK 

VARIABLES  USED 

BL9CKA 

NPLAG 

BLOCKD 

RC,  IARGS,  NROW,  NARGS,  KIND 

BLOCKD 

L2  p 1 M(XAX') 

« 2 M(X'AX) 

SCjRAT 

A 

LINE 

NUMBER 

FORTRAN 

LABEL 

COMMENTS 

IS 

There  must  bo  botweon  8 and  10  arguments. 

19-21 

, 

All  arguments  must  bo  integers. 

27 

For  tho  nino-argumont  form,  one  extra 

argument  is  given.  Check  that  it  is 
consistent. 
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TRANSF  (cont.) 


LINE 

FORTRAN 

NUMBER 

LABEL 

COMMENTS 

29 

200 

For  the  ten  argument  form,  two  extra 
arguments  must  be  checked. 

36-46 

240-260 

Expand  the  eight -argument  form  into  the 
equivalent  ten-argument  form. 

48-50 

280,300 

Expand  the  nine-argument  form  into  the 
equivalent  ton-argument  form. 

51,52 

320 

Set  arguments  11  and  12  to  the  implied 
dimensions  of  the  result. 

53-55 

Chock  that  all  three  matrices  fit  in  the 
worksheet. 

64-66 

Set  constants  for  executing  M(X'AX), 

68-70 

80 

Sot  constants  for  executing  M(XAX’). 

71 

90 

Check  that  the  dimension  of  the  result 
does  not  exceod  an  allowable  limit. 

74-88 

95-120 

Perform  the  first  matrix  multiplication. 

89-101 

150-180 

Perform  the  second  matrix  multiplication. 

102-115 

800,820 

Place  the  resulting  matrix  into  the 

worksheet. 
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VARCON(NAMB) 

PURPOSE : This  subroutine  checks  to  see  if  a name  is  one  of  the 

user  controlled  variables.  ARG  will  indicate  which  variable 
or  will  be  set  to  0 if  the  name  does  not  match. 

COMMON  BLOCK  VARIABLES  USED 

BLOCKA  ARG 


VECTOR (A, J) 


PURPOSE:  TTiis  subroutine  takes  the  value  A and  stores  it  in  NRMAX 

successive  locations  in  the  worksheet  starting  at  RC(J). 

COMMON  BLOCK  VARIABLES  USED 

BLOCKD  RC,  NRMAX 


KORKDC*) 


PURPOSE:  This  subroutine  is  used  to  display  worksheet  sections. 


COMMON  BLOCK 


BLOCKD 


VARIABLES  USED 

UC 

KEY 


4 


BLANK 


222 


LINE 

NUMBER 

10 


12 

13-17 

18-20 


21,22 


23-30 

» 

31-45 


j 

i 


W0RKD(*)  (cont.) 

FORTRAN 

LABEL  COMMENTS 

This  arithmetic  assignment  subroutine  is 
used  to  obtain  the  address  of  the 
element  in  the  I'th  row  and  J'th  column 
of  the  worksheet. 

1 KEM  is  the  worksheet  section  to  be 

displayed. 

80  Erase  the  screen  and  write  out  a heading 

on  the  screen. 

IA  is  the  top  row  on  the  screon  and  IB 
is  the  bottom  row.  If  KEY  is  less 
than  10,  a top  section  is  displayed. 
Otherwise,  a lower  section  is  dis- 
played. 

JA  and  JB  arc  the  numbers  of  the  columns 
which  will  appear  on  tho  loft  (JA) 
and  on  the  right  (JB)  of  tho  screon. 
Only  five  columns  aro  displayed  at 
one  time. 

8,84  Write  out  tho  column  numbers. 

10,85,9  Display  tho  worksheet  section.  Tho 

contents  aro  dispatched  to  the  screen 
eight  rows  at  a timo. 
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V 


XFiCUTE 

PURPOSE : This  subroutine  passes  control  to  the  subroutine  in 

which  the  current  command  is  to  be  executed. 

COMMON  BLOCK  VARIABLES  USED 

BLOCKA  NEWCD,  NEWCDS,  KSAVE,  NSAVE , NFLAG 

BLOCKS  LI,  L2 

BLANK  KEY,  IOVLY 

LINE  FORTRAN 

NUMBER  LABEL  COMMENTS 

10,11  90  Hie  value  of  LI  determines  which  sub- 

routine to  call  to  execute  a given 
command. 

12-68  100-3000  Various  subroutines  aro  called  to  execute 

given  commands. 

70,71  9001  The  command  is  storod  in  the  array  NEWCDS. 

72  Five  commands  aro  storod  in  NEWCDS  before 

boing  storod  in  a data  sot. 

73  Thoro  is  room  for  forty  records  in  the 

data  sot. 

78  Notify  tho  user  that  the  data  sot  has 

been  filled. 
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XOMNIT 

PURPOSE : This  subroutine  initializes  several  variables  in  the 

system. 

COMMON  BLOCK  • VARIABLES  USED 

BLOCKA  MODE,  KSAVE 

BLOCKD  NRMAX 

BLANK  IOVLY 

xpnd(t.k,y,knd) 

PURPOSE;  This  subroutine  is  used  during  the  compiling  of  an 
entered  line  to  obtain  arguments  when  asterisks  have  been 
used.  T contains  the  information  concerning  the  nature  of 
tho  argument.  Y will  be  set  to  the  value  of  the  indicated 
argumont.  K will  be  set  to  0 if  determining  Y required. only 
one  eloment  of  T,  and  to  1 if  two  elements  were  required.  A 
negative  K indicates  an  error.  KND  will  bo  used  to  distinguish 
floating  point  arguments  from  intogor  arguments. 

COMMON  BLOCK  • ' VARIABLES  USED 

BLOCKD  RC,  I ARCS,  KIND,  NRMAX,  NROW,  VWXYZ 

LINE  FORTRAN 

NUMBER  LABEL _ COMMENTS 

XT  will  be  used  to  dotormi.no  what  kind 

of  argumont  is  being  used. 


IS 


S' 

& 

t 

iy 

f- 


t 


,;,v 


I 

$;■ 

W?/ 


t* 

tt 


& 

:• 


LINE 

NUMBER 

20 


21 

24-27 


30 

31,32 

33 


34 

39-40 


41 


43 
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XPND(T,K,Y,KND)  (cont.) 

FORTRAN 

LABEL  COMMENTS 

The  argument  is  a worksheet  reference. 

Transform  IT  so  that  it  will  represent 
the  row. 

Check  that  the  row  is  within  the  limits 
of  the  worksheet. 

41  The  second  element  of  T contains  the 

column  number.  J will  point  to  the 
head  of  the  column. 

46  J now  points  to  the  desired  argument. 

KND  will  be  0 if  T(2)  is  positive  and  1 
if  T(2)  is  negative. 

Set  Y to  the  desired  value.  J-l  will 
point  to  the  correct  location  in  the 
worksheet. 

Set  K to  1 to  indicate  that  two  values 
from  T were  neoded. 

60  IU  will  indicate  which  variable  is 

referrod  to  and  KND  will  indicate  its 
type. 

Sot  K to  0 to  indicate  that  only  one  value 
from  T was  needed. 

Pick  up  the  roquirod  arguwont  from  the 


VWXYZ  array 


XPND(T,K,Y,KND)  (cont.) 


LINE 

NUMBER 


FORTRAN 

LABEL 


70 


COMMENTS 


45 


The  required  argument  is  NRMAX. 


CHAPTER  IV 


THE  ADDITION  OF  COMMANDS 

One  can  add  commands  to  interactive  OMNITAB  in  several  ways.  In 
many  cases  the  new  command  can  be  embedded  within  an  existing  sub- 
program. In  other  cases,  a new  subprogram  must  be  written.  Both 
methods  will  be  demonstrated. 

A specific  example  of  the  first  method  mentioned  above  will  be 
illustrated  by  the  addition  of  the  TRACE  operation  before  the  general 
procedure  is  outlined.  When  adding  a command  to  interactive  OMNITAB, 
one  must  consider  what  form  the  command  should  tako.  Trace  is  a matrix 
command.  Honco,  tho  key  word  should  be  MTRACE,  (The  prefix  M indicates 
that  this  command  is  part  of  tho  sot  of  matrix  operations  0 Two 
additional  items  of  information  ore  necessary  for  determining  the  trace 
of  a matrix.  Tho  user  must  identify  tho  matrix  and  indicate  whore  its 
trace,  tho  single  scalar  quantity,  is  to  bo  stored.  A matrix  con  bo 
identified  using  four  arguments  (coordinates  in  the  worksheet  where  it 
bogins,  number  of  rows,  and  number  of  columns),  and  its  traco  can  bo 
stored  in  a designated  coordinate  requiring  two  additional  arguments. 

If  tho  number  of  rows  is  different  from  the  number  of  columns,  the 
lesser  of  tho  two  is  taken  as  tho  order  of  tho  matrix  of  which  the 
trace  is  to  bo  calculated.  Thus  the  command  MTRACE  requires,  in 
gonoral,  six  arguments.  If  only  fivo  are  statod  a regular  traco  will 


be  assumed,  and  the  program  will  duplicate  the  third  argument  (number 
of  rows.)  The  first  two  arguments  will  specify  the  upper  left  hand 
comer  of  the  matrix.  The  last  two  will  specify  the  coordinate  where 
the  trace  is  to  be  stored.  The  remaining  argument (s)  will  specify  the 
dimension  of  the  matrix. 

The  MTRACE  command  has  been  added  in  the  following  steps: 

(1)  Obtain  the  source  program  of  SUBROUTINE  LOOKUP  (Appendix, 

page  225)  and  make  the  following  changes 

(a)  The  DIMENSION  of  MA  must  be  increased  from  MA(18)  to 
MA(20),  (Soe  comments  bolow.) 

(b)  In  DATA  MA/  ....  / the  two  integers  10035  and  815  must 
be  added.  (Soo  explanation  below.) 

(c)  The  DO- loop  starting  at  statement  number  250  must  be 
extonded  from  9 to  10. 

(2)  Obtain  tho  source  program  of  SUBROUTINE  MOP  (Appendix, 

page  245  ) 

(a)  The  computed  GO  TO  statement  (preceding  100)  must  be 
extended;  after  the  last  statement  number  (160),  add 
a new  one  (o,g.,  250) . 

(b)  Throe  linos  be  lev/  r.tatomont  number  105,  insert  (after 

J»l):  IP  (1.2 . IiQ,  10)  Je2  and,  about  half-way  between 

statements  105  and  110,  insert;  IP(L2,EQ,10)  GO  TO 
260. 

(c)  Somewhere,  after  a closed  section  (an  unconditional 
GO  TO,  or  a RETURN)  insert: 
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250  IARGS (7) =1 
IARGS (8) =1 
J«=NARGS 

IF  (NARGS . NE , 5 . AND . NARGS . NE , 6)  GO  TO  10. 

IF(NARGS.EQ.6)  GO  TO  105 
IARGS (6)  = IARGS (5) 

IARGS (5) =IARGS (4) 

IARGS (4) =IARGS (3) 

GO  TO  105 

(d)  Also  add  (after  another  closed  branch) 

260  TRACE=0, 

N=MINO (IARGS (3) , IARGS(4) ) 

DO  270  NA=1,N 
TRACE=TRACE+RC (JB) 

270  JB=JB+NR0W+1 
ICX=IARGS(5) 

RC(ICX)=TRACE 

RETURN 

(3)  Submit  tho  following  batch  program: 

//EXEC  FORTGCL » PARM , FORT= ’MAP  * , PARM . LKED= (XREF , LET ,OVLY) , 

REGION=160R 

//FORT. SYS IN  DD  * 

Hero  insort  the  source  decks  of  all  subprograms 
that  have  boon  modified  and  any  now  subprograms 
added;  in  this  instance 
SUBROUTINE  LOOKUP 
SUBROUTINE  MOP 


Here  insert  the  "LOAD  MODULE"  JCL  sequence, 
Figure  IV- l,  starting  with 
//LKED.SYSLIU  UD  DSN»SYSl.GIUmXB,DJSP»SIUl 
and  ending  with 
INSERT  LOOKUP 
/* 
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FIGURE  IV-1 
3 pages 

LOAD  MODULE  JCL  SEQUENCE 


//LKED.SYSLIB  DD  DSN=SYS1.GRAPHLIB,DISP=SHR 
//  DD  DSN=SYS1 , UGALI B , DISP=SHR 
//  DD  DSNAME=SYSI .FORTLIB,DISPaSHP 
//  DD  DSN=SYS1 . SSPLIB, DISP=SHR 
It  DD  DSN=SYS1 , LINKLIB , DISP=SHR  . 

//  DD  DSN=SYS1.GMSLIB,DISP=SHR 

//LKED.SYSLMOD  DD  US’J*SYS1.GRAPHLIB(0MTA3)  ,DISP*SHR 

It  SPACE* (TRK, (1,0,1)) 

//LKED.SYSIN  DD  * 

INCLUDE  SYSLIB(OMTAB) 

ENTRY  MAIN 

OVERLAY  ONE 

INSERT  ASTER 

OVERLAY  TWO 

INSERT  NONBLA 

OVERLAY  TWO 

INSERT  PHYCON 

OVERLAY  TWO 

INSERT  VARCON 

OVERLAY  ONE 

INSERT  XECUTE 

OVERLAY  TWO 

INSERT  STATD 

OVERLAY  THREE 

INSERT  GAMP, CHJX, CHIP, CHX2 

OVERLAY  THREE 

INSERT  UETAX , BETAP , FPX , FFP,TTX,TTP 

OVERLAY  THREE 

INSERT  ilf:TA2,FFZ,TT2 

OVERLAY  TWO 

INSERT  MISC2 

OVERLAY  TWO 

INSERT  MOVE 

OVERLAY  TWO 

INSERT  I’DMQTE 

OVERLAY  TWO 

INSERT  MSCROW 

OVERLAY  TWO 

INSERT  PROROW 


OVERLAY  TWO 
INSERT  DEFINE 
OVERLAY  TWO 
INSERT  EXTREM 
OVERLAY  TWO 
INSERT  SORTER 
OVERLAY  TWO 
INSERT  ERASE 
OVERLAY  TWO 
INSERT  EXCHNG 
OVERLAY  TWO 
INSERT  FLIP 
OVERLAY  TWO 
INSERT  CHANGE 
OVERLAY  TWO 
INSERT  MATRIX 
OVERLAY  iWO 
INSERT  MOP 
OVERLAY  TWO 

INSERT  INVERT, INVCHK, SPINV 

OVERLAY  TWO 

INSERT  MMULT 

OVERLAY  TWO 

INSERT  MRAISE 

OVERLAY  TWO 

INSERT  GENER 

OVERLAY  TWO 

INSERT  ARITH 

OVERLAY  TWO 

INSERT  MXTX 

OVERLAY  THREE 

INSERT  TRANSF 

OVERLAY  THREE 

INSERT  MDAMAD 

OVERLAY  THREE 

INSERT  ARYVEC 

OVERLAY  TWO 

INSERT  EXPCON 

OVERLAY  TWO 

INSERT  READX 

OVERLAY  TWO 

INSERT  RESET 

OVERLAY  TWO 

INSERT  SET 

OVERLAY  TWO 

INSERT  PUNCT 

OVERLAY  THREE 

INSERT  FSIN,FCOS 

OVERLAY  ONE 


INSERT  INPUT, OMCONV 
OVERLAY  ONE 
INSERT  DISPLY 
OVERLAY  ONE 
INSERT  WORKD 
OVERLAY  ONE 
INSERT  COMAND 
OVERLAY  ONE 
INSERT  XOMNIT 
OVERLAY  ONE 
INSERT  SETQ 
OVERLAY  ONE 
INSERT  READQ 
OVERLAY  ONE 
INSERT  LOOKUP 
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To  understand,  and  apply  analogously  for  other  additions,  the 
operations  included  in  step  1,  the  programer  must  recognize  the  func- 
tioning of  the  SUBROUTINE  LOOKUP.  One  must  add  all  new  commands  to  the 
dictionary  of  exit ting  commands  contained  in  the  SUBROUTINE  LOOKUP. 

The  subroutine  compares  the  key  word  entered  by  the  user  with  a list  of 
available  commands.  Thus,  before  a new  command  can  be  used,  it  must  be 
included  in  this  list.  To  do  this  one  must  first  understand  the  method 
used  in  interpreting  a key  word  appearing  in  the  reply  area. 

A key  word  may  consist  of  up  to  six  letters  (with  a blank  indi- 

i 

eating  the,  end  of  the  key  word  if  it  requires  fewer  than  six  lotters) . 
This  string  of  letters  is  converted  into  two  integer  values  which  are 
stores  as  the  first  two  elements  of  the  array  NAME  contained  in  the 
labelled  COMMON  called  BLOCKE.  NAME(l)  is  determined  from  the  first 
three  letters  of  the  key  word  and  NAME (2)  from  the  last  three  using 
the  code  shown  in  Table  IV-l[15],  Thus,  for  MTRACE,  NAME (1) =9477+540+ 
15=10035  and  NAME£2)=729+81+5=815.  Thus,  somewhere  within  LOOKUP, 
NAME(l)  and  NAME (2)  must  be  compared  with  those  values, 

LOOKUP  is  logically  divided  into  two  main  sections.  The  first 
section  consists  of  a series  of  data  statements  which  are  used  to 
defino  more  than  a dozen  integer  arrays.  In  the  second  section  NAME(l) 
and  NAME (2)  are  compared  with  those  arrays  to  determine  which  command 
is  to  bo  executed.  When  tho  appropriate  command  is  found,  two  vari- 
ables, LI  and  L2,  which  are  also  stored  in  BLOCKE,  ore  set.  Those 
variables  will  be  used  by  the  subroutine  XECUTO  to  determine  the 
appropriate  subroutine  in  which  the  command  will  bo  carried  out.  The 
commands  are  divided  into  several  groups  of  related  commands.  Each 
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First  Letter  Second  Letter  Third  Letter 


A 

729 

27 

1 

B 

1458 

54 

2 

C 

2187 

81 

3 

D 

2916 

108 

4 

E 

3645 

135 

5 

F 

4374 

162 

6 

6 

5103 

189 

7 

H 

5832 

216 

8 

I 

6561 

243 

9 

J 

7290 

270 

10 

K 

8019 

297 

11 

L 

8748 

324 

12 

M 

9477 

351 

13 

N 

10206 

378 

14 

0 

10935 

405 

15 

P 

11664 

432 

16 

Q 

12393 

459 

17 

R 

13122 

486 

18 

S 

13851 

513 

IS 

T 

14580 

540 

20 

U 

15309 

557 

21 

V 

16038 

594  >' 

n 

W 

1676? 

621 

23 

X 

17496 

848 

24 

r 

10225 

675 

25 

i 

18954 

; 702-^'  ;7: 

26 

..'■if  • 

Table  1V-1 

Cor.vcrs  ion  Codes, 
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group  is  identified  by  the  value  of  LI  which  currently  takes  on  values 
from  one  through  fourteen.  L2  is  used  to  distinguish  the  different 
commands  within  a particular  group.  The  characteristics  of  each 
of  the  groups  are  described  in  the  comments  in  the  listing  of  LOOKUP 
(Appendix,  page  225  ) . 

There  are  many  places  in  which  a new  command  can  be  positioned 
within  LOOKUP.  One  may  use  one  of  the  existing  groups  or  one  may  create 
a new  group.  For  example,  one  might  choose  to  set  Ll=15  for  a new 
command  with  entirely  new  structure.  If  this  were  done,  then  it  would 
be  necessary  to  modify  the  computed  GO  TO  in  XECUTE  to  allow  a branch 
when  Ll»15,  This  branch  would  call  the  appropriate  subroutine  which 
must  be  supplied  to  perform  the  new  command. 

Before  resorting  to  this  extreme,  however,  one  might  consider 
placing  the  new  command  within  one  of  the  existing  groups.  For  MTRACB 
it  was  decided  that  the  group  consisting  of  the  commands  MDEFINE, 
ADEFINB,  AERASE,  MIDENT,  ADIAS,  MDIAG,  MZERO,  AZERO  and  MERASE  would 
be  very  appropriate  for  MTRACE,  For  this  group,  Ll=>7  (see  LO0K173-175, 
Appendix,  page  228  ).  The  corresponding  array  of  numerical  equivalents 
of  command  names  is  in  array  MA  (see  LOOK  39-44,  Appendix,  page  225  ) 
which  now  must  be  extended  to  hold  two  additional  values  (see  steps 
1 (a)  to  (c)  above). 

At  this  point,  ono  has  to  look  at  the  SUBROUTINE  XECUTE.  In  this 
example  no  changes  are  necessary  since  iMTRACB  has  boon  included  in  an 
oxisting  group  (MOP)  . This  group  of  commands  is' identified  by  ll«7. 

From  XECUTE  one  learns  that  the  computed  CO  TO  statement  (XEGU10-11, 
Appendix,  page  288  ) points  to  statement  No.  1500  if  Ll“7. 
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Statement  1500  (XECU27)  calls  SUBROUTINE  MOP.  Thus  we  must  obtain 
the  source  of  MOP  which  must  be  modified  to  accomodate  the  new  command. 

The  first  executable  statement  in  MOP  (Appendix,  page  245  ) is  a 
computed  GO  TO.  The  number  of  branches  in  this  statement  must  be 
increased  by  one  member  (step  2(a)).  Step  (2c)  adds  the  new  code 
required  to  do  the  checking  of  arguments  characteristic  of  MTRACE,  The 
general  layout  of  IARGS  for  any  matrix  command  is  as  follows: 

1ARGS(1)  Row  coordinate  of  first  matrix 

(2)  Col,  coordinate  of  first  matrix 

(3)  No.  of  rows  of  first  matrix 

(4)  No.  of  cols,  of  first  matrix 
5-8  (same  for  second  matrix) 

9-12  (same  for  third  matrix,  if  any) 

In  our  example,  the  second  matrix  is  output  and  is  a scalar;  honce 

IARGS (7)  and  IARGS (8)  need  to  be  set  equal  to  1.  The  remainder  of  the 

code  in  stop  (2c)  deals  with  chocks  for  legitimacy  and  the  duplication 

of  the  number  of  rows  into  number  of  columns,  if  the  latter  is  not 

stated.  NARGS  is  set  according  to  the  number  of  arguments  which  the 
• 

user  onterod.  The  correct  number  of  arguments  for  MTRACE  is  eithor 
6 or  5 (only  S required  if  the  trace  of  a squaro  matrix  was  desired). 

If  the  user  entered  more  then  6 or  fov/or  than  5 arguments,  the  program 
proceeds  to  10  which  is  a call  to  the  orror  routine.  If  the  user 
entered  6 arguments  they  can  bo. assumed  to  be  the  proper  arguments  in 
the  ordor  required  by  IARGS  (if  they  exceed  dimensions  of  tho  worksheet 
or  are  otherwise  illegal,  the  subroutine  MTXCHK  and  other  utility 
routines  will  perform  the  chocks).  Tho  next  3 statements  in  2(c)  are 


are  intended  to  duplicate  the  third  argument  (no.  of  rows  of  the 
matrix)  into  the  fourth,  and  shift  the  others  over,  if  the  user  intends 
only  5 arguments. 

Step  2(b)  serves  two  functions.  The  first  insert  will  serve  to 
inform  MTXCHK  that  it  must  check  two  matrices.  J indicates  the  number 
of  matrices  involved.  L2=10  points  to  the  10th  member  of  group  7 
(which  is  the  one  we  added).  The  second  forces  a transfer  to  step  2(d) 
which,  here  as  in  many  similar  additions,  is  the  actual  execution  of 
the  new  command.  Step  2(d)  is  the  execution  phase.  In  2(d)  it  is  to 
be  noted  that  RC  is  a one-dimensional  array  of  2439  words  which  con- 
tains the  entire  worksheet.  JB  has  been  calculated  by  MOP  as  being  the 
coordinate  of  the  initial  element  of  the  first  matrix.  The  worksheet  is 
stored  columnwise  (thus  NR0W*80) . The  subroutine  MTXCHK,  which  was 
called  earlier,  converted  tho  entries  in  IARGS(l)  and  (2)  and  those  in 
IARGS(5)  and  (6)  into  a single  number  pointing  to  the  number  in  the  RC 
array  where  each  matrix  begins,  and  placed  it  into  IARGS(l)  or  IARGS(5) 
respectively.  Stop  (3)  indicates  how  a batch  job  is  to  be  submitted, 
so  that  the  load  module  may  be  rebuilt,  in  our  installation. 

During  the  discussion  of  tho  addition  of  tho  command  MTRACE,  it 
was  mentioned  that  an  entiroly  new  program  could  be  written.  Since  this 
interactive  program  is  dosigned  for  use  by  statisticians  it  would  be 
usoful  to  be  able  to  evaluate  percentiles,  integrals  and  ordinates  for 
* cortain  probability  distributions.  Those  routines  wore  thus  added  to 
tho  system.  To  liolp  a programmer  who  wishes  to  make  similar  additions, 
the  steps  token  for  this  modification  aro  described  bolow; 
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The  first  change  to  be  made  is  in  the  subroutine  LOOKUP 
(appendix,  page  225  ).  A new  array  IG  must  be  introduced  to  accom- 
modate the  numerical  equivalents  of  the  18  new  commands  included, 
hence  IG(36)  was  added  in  L00K4.  This  array  will  contain  the  values 
against  which  NAME (1)  and  NAME (2)  can  be  compared  when  one  of  the  sta- 
tistical functions  is  desired.  A DATA  statement  (LOOK  96)  was  added  to 
set  the  number  codes  corresponding  to  the  names  into  the  IG  array  (see 
Table  IV-1) . Following  statement  number  324,  (LOOK  231)  a section  has 
been  added.  This  section  sets  LI  to  15  since  this  group  of  commands 
is  now  the  fifteenth.  NAME (1)  and  NAME (2)  are  compared  with  pairs  of 
values  from  IG  to  determine  if  the  given  command  is  a member  of  this 
group.  If  it  is,  then  L2  will  indicate  which  member  it  is. 

The  next  changes  must  be  made  in  XECUTE.  Since  LI  can  now  be  15, 
another  branch  (3000)  has  been  added  to  the  computed  GO  TO  at  statement 
number  90.  Following  statement  number  2700,  (after  XECU66)  these  two 
lines  have  also  been  added: 

GO  TO  9000 

3000  CALL  STATD  . . * 

Having  added  a call  for  the  subroutine  STATD  to  the  subroutine 
XBCUTE,  one  next  must  write  STATD.  This  task  was  rolativoly  easy  since 
the  new  commands  can  bo  treated  analogously  to  those  oxocuted  by  the 
subroutine  PUNCT  (Appendix,  page  214  )»  Both  groups  of  commands 
allow  all  argumonts  (except,  of  course,  the  last  ono  which  must  bo 
* column  number)  to  be  oithor  floating  point  constants  or  column 
numbors,  STATD  references  a number  of  function  subprograms.  These 
were  obtained  from  a statistical  distribution  package  devolopod  by 


Bargmann  [1] . We  used  FUNCT  as  a model  to  guide  us  in  writing  STATD. 
The  program  flow  is  discussed  in  Chapter  III  on  page  116  ). 

Finally  a new  load  module  must  be  created  as  outlined  in  step  (3) 
above.  The  following  cards  were  added  to  load  module  JCL  following 
the  INSERT  XECUTE  card. 


OVERLAY  TWO 
INSERT  STATD 
OVERLAY  THREE 

INSERT  GAMP , CHIX , CHIP, CHIZ 
OVERLAY  THREE 

INSERT  BETAX, BETAP, FFX,FFP,TTX,TTP 
OVERLAY  THREE 
INSERT  BETAZ,FFZ,TTZ 

After  these  modifications  were  made  the  following  new  commands  are 
available  to  the  user:  YORMX,  YORMP,  YORMZ,  CHIX,  CHIP,  CHIZ,  GAMX, 

GAMP,  GAMZ,  TTX,  TTP,  TTZ,  BETAX,  BETAP,  BETAZ,  FFX,  FFP  and  FFZ. 


- CHAPTER  V 

EXAMPLES 

In  this  chapter,  several  examples  of  the  use  of  an  interactive 
OMNITAB  version  will  be  presented  in  detail  to  illustrate  situations 
in  which  a statistician  would  derive  help  from  such  a system.  These 
examples,  in  addition  to  illustrating  the  use  of  certain  commands, 
should  suggest  other  ways  in  which  OMNITAB  can  be  applied. 

A.  ORDER  STATISTICS 

Frequently,  non-parametric  analyses  involve  the  ordering  of  data. 
One  such  technique  is  the  Mann-Whitney  U test  [55] . In  this  section 
a program  will  be  described  which  calculates  the  value  of  U needed  for 
this  test. 

The  first  problem,  of  course,  is  to  enter  the  data  into  the  work- 
sheet, Since  the  U test  requires  that  the  two  samplos  be  merged  before 
sorting,  it  is  convenient  to  read  all  the  data  into  one  column  and  to 
use  a second  column  to  indicate  to  which  sample  a particular  observa- 
tion belongs.  Thus  the  first  instruction  could  bo 

READ  1 2 

A zero  in  column  two  will  indicate  one  sample  and  a one  will  indicate 


the  other. 


After  entering  aJl  of  his  data  the  user  should  check  the  work- 
sheet [see  Figure  V-l]  for  errors  before  issuing  the  next  command: 

SORT  12.  In  this  command  the  first  argument  indicates  the  column  to 
be  sorted  in  its  own  field.  Any  additional  arguments  indicate  columns 
containing  concomitant  information  which  will  be  carried  along  as  rows 
are  exchanged  by  the  SORT  command.  Sorting  is  from  low  to  high. 

After  sorting  the  data,  the  next  step  would  be  to  attach  ranks  to 
the  data.  This  is  most  easily  done  using  the  command:  GENERATE  1.  1. 
*NRMAX*  3.  This  will  cause  numbers  from  1.  to  NRMAX,  the  number  of 
rows  containing  data,  to  be  generated,  using  a step  size  of  1.,  in 
column  3. 

At  this  point  the  user  can  take  advantage  of  the  ease  with  which 
data  can  be  edited  because  he  can  view  the  worksheet.  In  this  example 
it  is  necessary  to  search  for  ties  in  the  data  and  to  replace  the  ranks 
for  tied  data  by  the  average  of  those  ranks.  Note  that  this  is  only 
necessary  if  the  observations  como  from  different  samples.  This  can 
be  done  using  the  command:  MDEFINE  A, 3 n,l  a whore  K is  the  number 
of  the  first  row  in  the  tied  group,  n is  tho  number  of  tied  observa- 
tions in  tho  group  and  a is  the  average  rank  for  the  tied  group.  In 
this  example,  tho  user  would  begin  tho  oditing  procedure,  after  viewing 
tho  worksheet,  column  1 of  Figure  V-2  by  issuing  tho  command 
MDEFINE  17,3  5,1  19.0. 

Tito  other  ties  in  tho  example  were  re-defined  by 

MDEFINE  24,3  5,1  26.0 
MDEFINE  29,3  2,1  29.5 
MDEFINE  31,3  3,1  32.0 
MDEFINE  34,3  5,1  36.0 

This  produced  Col,  3 of  Figaro  V-2 
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At  this  point  the  user  may  take  advantage  of  the  designation  of 
samples  by  zeros  and  ones  in  column  2.  He  is  interested  in  the  sum  of 
the  ranks  for  only  one  of  the  two  samples  and  can  obtain  this  with  two 
more  commands.  First,  he  issues  the  command:  MULT  234  . This 

command  will  store,  for  i from  one  through  NRMAX,  the  product,  of  the 
i'th  element  in  column  two  and  the  i'th  element  in  column  three  as  the 
i'th  element  of  column  four.  Thus  the  only  non-zero  elements  of  column 
four  will  be  ranks  for  one  of  the  samples.  The  next  command  would  be 
SUM  4 S . This  command  sums  the  elements  of  column  four  and  stores 
this  sum  in  column  five  [see  Figure  V-3].  (Since  OMNITAB  is  column- 
oriontod,  the  result  is  written  into  all  elements  of  column  5.  Because 
of  the  instantaneous  display  on  the  graphics  terminal,  this  causes  no 
delay.)  From  this  point,  the  rest  of  the  calculation  can,  of  course, 
be  carried  on  in  OMNITAB,  but  a desk  calculator  is  sufficient.  The 
most  tedious  task  of  obtaining  the  sum  of  tho  ranks  for  one  group  has 
boon  easily  accomplished. 
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Worksheet  aftor  entering  SUM  4 S 


B.  BIOASSAY 


A frequent  problem  encountered  by  the  applied  statistician  who 
works  with  biological  data  is  that  of  estimation  of  parameters  in  non- 
linear models.  A technique  often  used  here  is  quantal  analysis, 
usually  called  bioassay  on  account  of  its  most  frequent  application. 
Many  bioassay  problems  can  be  solved  using  OMNITAB.  Convergence  dif- 
ficulties can  be  resolved  as  they  appear.  In  this  section,  performance 
of  a probit  analysis  using  OMNITAB  will  be  described. 

For  this  example,  consider  the  following  experiment:  A certain 
carcinogenic  food  additive  is  administered  at  several  different  dose 
levels  to  groups  of  laboratory  mice.  The  experiment  is  continued  for 
a fixed  time  period.  At  the  ond  of  this  time  poriod,  the  number  of 
animals  in  each  group  (the  i’th  group  consists  of  all  animals  which 
have  been  administered  dose  d.)  which  have  oither  survivod  or  have 
been  eliminated  following  the  discovery  of  a tumor  are  called  the 
number  at  risk,  ir.  For  each  group,  tho  number  of  animals  in  which 
tumors  have  appeared  is  known  as  the  number  of  responses,  r^. 

Figure  V-4  shows  tho  statements  which  were  used  in  performing 
tho  initial  cyelo.  Data  are  read  into  columns  1,  2 and  3 (linos  2-10). 
Column  1 contains  n^,  column  2 contains  r,  and  column  3 contains 
In  tho  probit  model,  « A + BX^X^  is  usually  logdos©  while  Y^  the 
probit,  is  •T1^)  +5  where  p^  is  the  proportion  of  successes  in  tho 
i'th  group  and  is  initially  estimated  by  r^/n^ , the  observed  propor- 
tion, and  whore  $ is  tho  proportion  under  the  standard  normal  curve 
and  thus  0 yields  tho  percentile  for  the  standard  normal  curve* 
Dosage  (logdose)  is  obtained  and  stored  in  column  9 (line  11).  Hie 
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observed  proportion  and  the  observed  probit  are  calculated  and  stored 

in  columns  4 and  5 respectively  (lines  12-14).  (YORMP  evaluates  the 
•1 

function  $ .)  These  values  need  not  be  recalculated  later.  The  work- 


sheet, after  theso  instructions  have  been  completed,  appears  as  Figure 


V-5  and  can  be  used  to  compare  with  predicted  proportions  later. 

After  completion  of  this  initial  work,  weighted  regression  is 
initiated.  Column  10  will  contain  the  working  probit.  For  the 
initial  cycle,  the  working  probit  is  the  observed  probit  (line  15). 
Column  8 will  contain  the  weights  which  initially  are  the  number  at 
risk,  n^>  contained  in  column  1 (lino  16).  Next  a weighted  regression 
was  performed  using  as  X,  the  logdose,  and  as  Y,  the  working  probit 
(lines  17*29),*  The  initial  estimates,  B(1.99483)  and  A(. 83249), 
are  stored  in  columns  21  and  16  respectively.  These  two  sections  of 
the  worksheet  (Figures  V-6  and  V-7)  will  bo  used  to  store  the  estimates 
of  the  slope  and  intercept  obtained  in  the  iterative  procedure. 


Finally,  the  predicted  probit,  Y = A + BX,  and  tho  predicted  proportion, 
P e $lY-5],  whore  $ is  the  standard  normal  CDF,  are  calculated  and 
stored  in  columns  6 and  7 respectively  (linos  30-33).  (YORMX  evalu- 
ates the  functii  $.}  Figures  V-8  and  V-9  show  the  worksheet  sections 
3 and  4 as  they  appeared  at  tho  end  of  tho  first  cyclo. 

In  subsequent  cycles  working  probits,  y*,  and  woights,  w,  must  be 

2 

calculated  as  follows:  y*  » Y + £“£  and  w « » where  Y is  the 

predicted  probit,  p is  tho  observed  proportion,  P is  the  predicted 


1 Where  more  than  the  required  arguments  appear  in  a column- 
oriented  OMNITAB  command,  tho  next  to  last  column  (or  number)  is  mul- 
tiplied; o.g. , line  21  says  take  number  in  (10,7)  divide  by  entries  in 
column  15,  multiply  result  by  number  in  (10,7)  and  store  into  Col.  16, 
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30 

0.0 

0.0 

0.0 

o.o 

0.0 

.JG 

0.0 

0.0 

6.0 

0,0 

0.0 

31 

n.n 

rt  n 

0.0 

0.0 

0.0 

30 

0,0 

0.0 

0,0 

0.0 

0.0 

39 

0.0 

o.n 

0.0 

0,0 

6.0 

40 

o.a 

0.0 

0.0 

0.0 

c.o 
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OUTPUT  AREA 
WORKSHEET  PORT  S 


21 

22 

23 

24 

25 

1 

1.99483 

0.0 

0.0 

o.o 

0.0 

2 

1 .90433 

0.0 

0.0 

0.0 

0.0 

3 

1,90403 

o.o 

0.0 

0.0 

0.0 

4 

1 .99403 

o.o 

o.o 

0.0 

o.o 

6 

1 .99403 

0.0 

0.0 

0.0 

0.0 

6 

1 .99403 

o.o 

0.0 

c.o 

0.0 

7 

1 .99403 

0.0 

0.0 

0.0 

0.0 

8 

1 .99493 

0.0 

0.0 

o.o 

0.0 

9 

0.0 

0.0 

n.o 

0.0 

0.0 

10 

0.0 

0.0 

o.n 

c.o 

0.0 

n 

0.0 

0.0 

o.o 

0.0 

0.0 

12 

0.0 

0.0 

0.0 

0,0 

r.o 

is 

0.0 

0.0 

0.0 

o.r 

c.o 

14 

0.0 

0.0 

o.o 

0.0 

c.o 

IS 

0.0 

0.0 

0.0 

0.0 

0.0 

1C 

0.0 

0.0 

0.0 

0.0 

0.0 

17 

0.0 

O.fl 

o.o 

0.0 

r.o 

18 

0.0 

0.0 

0.0 

o.o 

0.0 

10 

0.0 

0.0 

0.0 

0,0 

0.0 

20 

o.o 

0.0 

0.0 

o.o 

c.o 

21 

0.0 

o.n 

0.0 

0.0 

c.o 

22 

0.0 

0.0 

0.0 

0.0 

o.o 

23 

0.0 

0.0 

r.o 

0.0 

o.o 

24 

0.0 

0.0 

0.0 

0.0 

0.0 

25 

0.0 

0.0 

0.0 

0,0 

0.0 

20 

0.0 

0.0 

r.o 

0.0 

o.r 

27 

0.0 

o.o 

o.o 

0.0 

c.o 

20 

0.0 

0.0 

0.0 

0.0 

0.0 

20 

0.0 

o.n 

0.0 

0.0 

o.r 

s;o 

o.o 

0.0 

0,0 

C.o 

0.0 

31 

0.0 

0.0 

0.0 

o.o 

0.0 

32 

0.0 

o.o 

0.0 

0.0 

0.0 

33 

0.0 

0.0 

0.0 

o.o 

o.o 

34 

0.0 

r.o 

r.o 

0,0 

0.0 

35 

0.0 

0.0 

r.o 

0.0 

0.0 

35 

0.0 

0.0 

0.0 

0.0 

c.o 

37 

o.n 

0.0 

0,0 

c.o 

0.0 

3D 

o.n 

0.0 

0,0 

c.o 

0.0 

39 

0.0 

0.0 

0.0 

c.o 

0.0 

r 

0.0 

0.0 

0,0 

o.o 

c.o 

REPLY  HRE/I 

Figure  V-7 
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OUTPUT  AREA 
WORKSHEET  PART  2 


6 

7 

t*  w *•  • * 11  W 

8 

9 

10 

i 

2-02732 

0.M9022E-01 

100.000 

1.00000 

341921 

2 

3 .62115 

0.nsn897E-01 

75.0000 

1 .39794 

3.43391 

3 

4.02218 

0.429 -123 

05.0000 

2.00000 

4 .65409 

S.  42268 

0.883728 

95.0000 

2.30103 

5.200G9 

3 

S. 21048 

0.083100 

JOG .000 

2.69897 

5.65218 

6 

8.50799 

0 .1334221 

ICO. ooo 

2. 0451 0 

6.34075 

7 

8.72571 

0 . 957000 

ac.ooco 

2.95424 

6.63391 

0 

G. 01699 

o.siio'jyi 

125.000 

3.00000 

7.40891 

9 

0.0 

o.n 

0.0 

0.0 

o.o 

!9 

0.0 

1002.23 

4240.32 

10025.4 

4574,37 

n 

0.0 

c.o 

0.0 

o.o 

0.0 

12 

0.0 

c.o 

0.0 

0.0 

0,0 

!§ 

0.0 

o.o 

0.0 

0.0 

o.o 

14 

0.0 

c.o 

0.0 

o.o 

0.0 

13 

0.0 

c.o 

0.0 

0.0 

0.0 

IS 

0.0 

c.o 

0.0 

0.0 

0.0 

17 

0.0 

c.o 

0.0 

0.0 

0.0 

10 

0.0 

0.0 

0.0 

0.0 

0.0 

19 

o.c 

o.c 

0.0 

o.c 

0.0 

20 

0.0 

o.c 

0.0 

o.c 

0.0 

21 

0.0 

0.0 

C.O 

r.o 

0.0 

ZSf 

0.0 

n.o 

r.o 

r.O 

c.o 

2 8 

r.o 

c.o 

o.o 

0.0 

0.0 

24 

0.0 

0.0 

0.0 

o.c 

o.c 

2ft 

r.o 

0.0 

u.o 

c.o 

0,0 

26 

0.0 

0.0 

0.0 

c.o 

0.0 

27 

0.0 

c.o 

0.0 

0.0 

0.0 

20 

o.c 

o.n 

0.0 

o.c 

0,0 

29 

0.0 

c.o 

n.o 

0.0 

0.0 

30 

o.o 

0.0 

o.c 

0.0 

o.o 

3) 

0.0 

0.0 

0.0 

0.0 

0.0 

32 

c.c 

c.o 

0.0 

0.0 

0*0 

33 

0.0 

• 0.0 

0.0 

0.0 

0.0 

34 

c.o 

0.0 

0.0 

0.0 

c.o 

3S 

0.0 

0.0 

0.0 

0.0 

7.0 

30 

0.0 

0.0 

0.0 

0.0 

0.0 

37 

0.0 

0.0 

0.0 

0.0 

c.o 

30 

o.c 

O.ll 

0.0 

0.0 

c.o 

39 

0.0 

0.0 

0.0 

0.0 

c.o 

,40 

0.0 

c.o 

c.o 

0.0 

o.o 
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Figure  V-8 
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OUTPUT  OREO 


WORKSHEET  PORT  3 


11 

12 

COURNS 

13 

14 

IS 

775.000 

1 

3.11021 

1.00000 

2.32545 

2 .32546 

S. 47138 

2 

4.89127 

1 .95424 

5,47133 

775.000 

3 

9.30018 

4.00000 

2.32345 

5.47138 

775, COO 

4 

32.1510 

5.29473 

2.32545 

5,47133 

775. COO 

S 

lf>. 2551 

7.20444 

2.32645 

5.47133 

775,000 

6 

38.0401 

6 .09400 

2.32545 

5.47338 

775.000 

7 

20.1090 

0.72755 

2 .32545 

5.47,139 

775.000 

0 

22.2267 

9.00000 

2.32545 

5,47138 

775.000 

9 

0.0 

o.o 

O.C 

0.0 

0.0 

JO 

0-0 

O.o 

0.0 

0.0 

0.0 

11 

0.0 

o.o 

0.0 

0.0 

0.0 

12 

0.0 

0.0 

0.0 

0,0 

0.0 

13 

0.0 

0.0 

0.0 

0,0 

o.o 

14 

O.c 

o.o 

0.0 

0.0 

0.0 

IS 

0.0 

o.o 

0.0 

0.0 

0.0 

10 

0.0 

0.0 

0.0 

o.o 

0.0 

17 

0.0 

0.0 

C.O 

0.0 

0.0 

10 

0.0 

0.0 

0.0 

0.0 

o.o 

10 

0.0 

o.o 

0.0 

o.c 

0.0 

0.0 

20 

o.o 

0.0 

0.0 

0.0 

21 

o.o 

0.0 

0.0 

0.0 

0,0 

22 

r.o 

0.0 

O.o 

0.0 

n.o 

23 

0-0 

c.o 

c.o 

0.0 

o.o 

24 

o.o 

0.0 

0.(1 

o.o 

o.o 

23 

o.c 

0.0 

c.o 

tf.a 

0.0 

20 

0.0 

c.o 

0,0 

0.0 

0.0 

27 

C.O 

c.o 

n.o 

0.0 

0.0 

20 

o.c 

0.0 

n.o 

c.n 

0.0 

29 

o.o 

0.0 

0,0 

r.o 

0.0 

30 

0.0 

o.o 

n ,rj 

0.0 

o.o 

31 

r.o 

0.0 

O.C 

0.0 

0.0 

32 

o.o 

0.0 

0,0 

0.0 

0.0 

33 

o.o 

0.0 

0,0 

0.0 

0.0 

34 

c.o 

o.c 

0.0 

0.0 

c.a 

30 

o.o 

u.o 

0.0 

0.0 

0.0 

30 

o.o 

o.c 

c.o 

0.0 

o.o 

37 

o.c 

0.0 

0.0 

0.0 

a.n 

30 

0.0 

n.o 

c.o 

0.0 

c.o 

39 

0.0 

c.o 

c.o 

0.0 

o.o 

0.0 

c.o 

0,0 

0,0 

u.o 

REPLY  fWEfl 


figure  V«9 

Workshcot  after  entering  DIVIDE  *10,3*  15  14  YB.\H 


154 


proportion  and  2 is  the  ordinate  under  the  normal  curve  (YORMX) 

(lines  34-42).  In  each  cycle,  new  estimates  A and  B are  calculated 
by  performing  a weighted  regression  using  as  X,  the  logdose,  and  as 
Y,  the  working  probit.  Note  that  the  working  probits  and  the  weights 
are  recalculated  for  each  cycle.  This  process  can  be  continued  until 
the  desired  degree  of  convergence  is  obtained. 

C.  SCALING  OF  MULTIDIMENSIONAL  CATEGORIZED  VARIABLES. 


In  the  transformation  of  categorized  (nominal)  variables  into 
interval  scales  [26,41,42]  a cumbersome  numerical  analysis  problem  . 
arises  when  three  or  more  variables  are  categorized.  One  of  the 
problems  is  as  follows:  Given  k sets  of  random  variables,  with  p. , p„ , 

A «* 

i 

...,pk  random  variables  in  each  set,  find  vectors  of  weights 
and  hence  a single  linear  composite  for  each  sot:  =»  xj;^,  • • • >Uj.  a 

Xj^,  such  that  the  determinant  of  the  matrix  of  correlations  between 
(u^Ug,..,,^)  is  minimum  [56], 

If  close  starting  values  can  be  found,  the  minimizing  sots  of 
weights,  can  ho  obtainod,  o.g.,  by  Flotcher-Powoll  iter- 

ation [27].  Thus  wo  need  to  investigate  techniques  of  approximation 
and  since  scaling  of  categorized  data  is  in  itself  a very  crude  method 
of  data  reduction,  tho  approximate  solution  may  bo  quito  adequate  in 
liou  of  tho  exact  minimizing  solution,  if  it  is  close  enough. 

Many  methods  arc  ovailablo  and  aro  being  studied  [16).  Ono  could 
bo  to  obtain  tho  canonical  weights  of  tho  i’th  sot  against  all  other 
sots  combined.  Another  would  bo  to  obtain  tho  canonical  weights  of 
sot  i versus  each  of  tho  other  sots,  and  thou  to  combine  those  "images" 


by  some  weighting  procedure  (multiple  regression  of  suitably  normalized 
weights*  simple  averages,  etc.)  Clearly,  OMNITAB  is  very  useful  for 
exploration  of  these  various  weighting  methods.  The  present  illustra- 

i t 

tion  compares  images  that  were  averaged  using  canonical  correlations  as 
weights.  The  first  two  frames  (Figures  V-10  and  V-ll)  show  the  commands 
which  were  used  to  obtain  all  the  canonical  variables,  and  the  combined 
linear  composite  for  the  first  set.  The  following  two  frames  (Figures 
V-12  and  V-13)  show  the  pages  of  the  worksheet  which  contain  results. 

The  entire  correlation  matrix,  of  order  six  by  six  (three  sets  of  two 
variables  each),  was  read  into  the  worksheet  starting  in  location  (1,1); 
thus  Rjg  starts  at  (1,3),  R13  at  (1*5),  and  R23  at  (3,S).  (10,1)  is 

the  start  of  the  2x2  matrix  Rj2Ri2*  R13R13*  (-^li)  of  &23R23* 

(19,1)  of  (R12R{2)'1»  (22,1)  of  (R^Rfe)'1,  (25,1)  of  The 

inverses,  in  some  applications,  are  singular  or  near-singular ; If  this 
occurs,  certain  variables  need  to  be  dropped.  On  the  b3$is  of  displays 
in  Figure  V-12  we  observe  that  the  matrices  are  well -conditioned  and 
in  the  present  instance,  we  may  proceed.  The  corresponding  rows  in 
columns  four  and  five  contain  cheek  procedures  for  eigenvectors.  The 
first  two  columns  of  row  28  contain  the  eigenvector  associated  with  the 
largest  root  of  hence  (since  R^  « R22  a I)  the  image  of  set  2 

in  sot  1 (unit  length) . Similarly  row  SO  contains  the  image  of  sot  3 
in  sot  1 and  row  32  contains  the  image  of  sot  3 in  sot  2.  The  2 by  2 
•matrix  of  correlations  between  images  starts  at  (10,6)  (on  the  second 
page  of  tho  worksheet.)  As  is  seen  in  Figure  V-12,  the  two  row  vectors 
in  rows  23  and  30  are  quite  different.  It  is  on  the  basis  of  this 
worksheet  display  that  the  decision  was  made  to  combine  these  vectors 
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, OUTPUT  AREA 

IF  THE  SCREEN  BECOMES  FULL  AN  ALARM  HILL  SOUNO. 
THE  NEXT  SECTION  OF  YOUR  PROGRAM#  PRESS  KEY  2. 

ERASE 

READ  1***8 

1 #0. .01737. .10058. .03599. .03898 

0.1 .3329S , .07304 .07884 .-.02135 

.01 737 . - .33230 . 1 .0,- . 1 5750 . 1 4852 

. 1 5080 » . 07304 . 0 . 1 . . 1 3727 . . 008  4 8 

.03539.- .07834 .- .13750 . .16727 . 1 .0 

.03390 .- .021 35 . 1 4052 . .00848.0*1 

MXX'l  1.3.2,2,10.1 

MC XX  I 1.5.2.2.15.1 

Hixx’ia.s.z.z.ie.i 

GENERATE  1..0..1..30 

RESET  NfiMAX  0 

OFNERATE  1..0..1..30 

ADD  1.  TO  30.30 

GENERATE  1..0..I..3Q 

HVECOIRG  10.1.2.2,10.4 

MVECDJGO  13.1.2.2,13.4 

MVECOIHG  18.1.2.2.16.4 

HiriVERT  10,1,2.19.1 

H INVERT  13.1.2,22,1 

ItINVERT  18,1.2,25.1 

„„REflD  »•* 

ROU  20 

.08717476.. 99774122 

ffltywa 

ROM  20 

fim.?.,  ,2.10.1 .2.2.19.4 
SUM  4 ROM  13  TO  ROM  14  STORE  8 
READ  1 .2 
ROM  30 

.5171 1S0342.-.0SB91542S  . 

HHULT  30.1 .1 .2.13,1.2.2.22.4 
HSCALAR  22.4,1,2.112.50290,23.4 
HSCflLAK  18.4.1,2,0.5071145397,20.4 
READ  1.2 
(toil  32 

-.013261867.. 5A1837073S4  „ 
fttMULT  32,1 ,1 .2,56.1 .2,2.26.4  ^ 

REPLY  RRE0 


MHEN  YOU  WANT  TO  SEE 


Figure  V-10 


First  page  of  commands  for  scaling  example 


OUTPUT  AREA 

KSCALAR  25. 4. 1.2. 15.01147052733. 26. 4 
READ  1.2 
ROM  bZ 

-.0131B073..5U200008 

M51ULT  32. lilt Z.  16, 1.2. 2. 25. 4 

HSMLRR  25.4.1.2.13,01028843.26.4 

MSOALAR  2Q,  1,1, 2,-1. .23.1 

MERfiSE  1.0.28.1 

MTRAAS  30.1 .1 .2.20,4 

MOULT  20.1,1 .2.20,4,2,1 ,31 ,4 

READ  6,7,0 

ROW  10 

1.. 019245. .34166 

.019245.1  .. 5)9428 

MI OVERT  10.6.2,13.6 

MMULr  13.0.2.2.10.8.2.1.13.0 

MSOAIAR  20,1.1 .2, .604070.29.1 

HSCMLAR  30, 1,1. 2. -.504458.31*1 

MBDf)  29.1.1.2.31.1.34*1 

READ  9.10 

• ,734974 .670095 

HACRLfiR  23. 1.1. 2, MlO. Ai.29.1 

HSCALAR  f0.1.S*2, Mil .0**31 .1 

HARD  29.1,1 ,2,31.1 ,34.1 

READ  9.10 

-.061 003.. 0301321 

ROM  2i 
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OUTPUT  RSER 


WORKSHEET  PART  1 


1 1 .00000 
2 0.0 

3 0.173700E-01 

4 O.lGOftBO 

5 0.353300E-01 

6 0.3898COE-O1 

7 O.C 
6 0.0 
9 0.0 

10  (I.26J041E-O1 

1!  O.fiO9506E~O2 

12  0.0 

13  0.201 472E-02 

14  -0.366967E-02 

15  0.0 

1C  O.4S0644E-01 
17  -0.27G045E-O1 
10  o.o 

19  30.0028 

20  -2.02G26 

21  0.0 

22  1255.03 

23  690.019 
«4  0.0 

26  60.7028 
SG  49.8342 

27  0.0 

20  -0.O71747E-O1 

29  -0.229502LV01 

30  0,517510 

31  Q.48759SE-01 

32  -0.013189 
93  0.0 

34  O.2SGO34E-01 
SS  0.0 
3§  0.0 
$7  0.0 
90  0.0 

39  0.0 
JO  0.0 


2 

0.0 

1 .00000 
-0.3325)59 
0.73fJ400E-01 
-O.70R4OOC-O1 
-0.213000E-01 
0.0 
0.0 
0.0 

0.609SS6E-02 

0.116315 

0.0 

-Q.3GGD67E-02 

0.G671USE-02 

0.0 

-0.27G04GE-01 
0.20051 IE-01 
0.0 

-2.02626 

0.70356 

0.0 

690,019 
529.073 
0.0  .. 
49.9542 
o8J.0O79 

-0*937741 

-0.340078 

-o.mfyjs 

-O,0nS31?fiE-01 

0.932000 

0.0 

-0.421574 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


OLUHNE 

3 

0.1737O0E-OJ 
-0.332*90 
1 .09000 
0.0 

-0.157590 

-0.146520 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

Q.O 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

(1.0 

0,0 

0.0 

8.U 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


REPLY  RREfi 


Figure  V-I2 


4 

0.1G0C8C 

0.738400E-01 

0.0 

1 .00000 
0.107270 
0.848000E-02 
0.0 
0.0 
0.0 

0.261641E-01 

0.110315 

0.0 

0.2914726-02 

0.GS71SGE-D2 

0.0 

0.46O644E-Q1 

0.230S11E-01 

0.0 

0.704099E-02 

0.671746E-01, 

0.0 

0.459046E-02 

0.517115 

0.0 

-0.5417G4E-01 

-0.013100 

0’0 

0.S17116 

-0.033913 

0.0 

0.019245 

0.0 

0.0 

0.0 

0.0 

0.0 


0.359SOOE-O1 

-0.79B400E-01 

-0.157500 

0.167270 

1.00000 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

o.o 

0.0 

o.o 

0.0 

0.116461 

0,997737 

0,0 

-P.7O0793E-O2 

-0.053915 

0.0 

0.307734E-01 
0 .802009 
0.0 
0.0 
0.0 
O.O 
0.0 
0.0 
0.0 
0,0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


Worksheet  after  entering  NADD  29,1,1,2,31,1,34,1 
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OUTPUT  AREA 
WORKSHEET  PART  2 


1 

0.9O8O00E-01 

0.0 

0.0 

-0.610930E-01 

0.998132 

-0.2135O0E-O1 

0.0 

o.o 

0.0 

0.0 

3 

-0.145S2O 

o.o 

o.o 

0.0 

0.0 

3 

0.048000E-02 

0.0 

0.0 

0.0 

D.O 

5 

0.0 

0.0 

o.o 

0.0 

0.0 

6 

1 -00000 

0.0 

o.o 

0.0 

0.0 

7 

0.0 

0.0 

0.0 

0.0 

0.0 

8 

0.0 

0.0 

o.o 

0.0 

0.0 

9 

0.0 

0.0 

0 «0 

0.0 

0.0 

10 

1 .00000 

0.018245 

0.341650 

0.0 

0.0 

n 

0,018245 

i .ooooo 

O.94S799E-01 

0,0 

0.0 

12 

0.0 

0.0 

0.0 

o.o 

0.0 

13 

3.04101 

-2.43133 

0.004073 

0.0 

0.0 

14 

-2.48133 

3.04101 

-0.664458 

0.0 

0.0 

15 

0.0 

0.0 

0.0 

0.0 

0.0 

18 

0.0 

0.0 

0.0 

0.0 

O.O 

17 

0.0 

0.0 

0*0 

0.0 

0.0 

10 

0.0 

0.0 

C.Q 

o.o 

0.0 

is 

0.0 

0.0 

0.0 

0.0 

0.0 

20 

0.0 

0.0 

0.0 

0.0 

0.0 

21 

0.0 

0,0 

o.o 

o.o 

0.0 

22 

0.0 

0.0 

o.o 

o.o 

0.0 

23 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

l 0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

26 

0.0 

0.0 

o.o 

0.0 

o.o 

27 

0.0 

0.0 

o.o 

0.0 

0.0 

28 

0.0 

0.0 

o.o 

0.0 

o.o 

29 

0.0 

o.o 

0.0 

o.o 

0.0 

30 

0.0 

0.0 

0.0 

0.0 

0.0 

31 

0.0 

0.0 

0.0 

0.0 

o.o 

32 

0.0 

o.o 

o.o 

0.0 

o.o 

33 

0.0 

0.0 

0,0 

0.0 

0.0 

34 

0.0 

0.0 

0.0 

o.o 

o.o 

36 

0.0 

0.0 

0.0 

0.0 

0.0 

SS 

0.0 

0.0 

0.0 

0.0 

0.0 

?? 

0.0 

0.0 

o.o 

0.0 

0.0 

38 

g.O 

o.o 

0.0 

o.o 

0.0 

30 

0.0 

0.0 

n.o 

0.0 

0.0 

40 

0.0 

0.0 

o.o 

0.0 

0.0 

REPLY  OREO  1 

Figure  V-13 

Worksheet  after  entering  in  columns  9 and  10  the  values 
.061093  and  .9981321 
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using  some  systematic  weighting  procedure  (had  the  vectors  been  similar , 
different  weighting  procedures  would  have  had  little  effect).  With 
canonical  correlations  used  as  weights  (10,8)  and  (11,8),  the  two 
images  (28,1)  and  (30,1)  have  been  combined,  then  normalized  into  the 
1 by  2 vector  starting  at  (1,9). 

The  next  frame  (Figure  V~14)  shows  the  additional  commands  which 
were  used  to  obtain  images  of  set  2 in  set  1 (R^-i*  reduced  to  unit 
length),  of  set  3 in  set  1,  and  of  set  3 in  set  2.  After  combination 
with  canonical  correlations  as  weights,  and  normalizations,  the  final 
weights  wore  obtainod  and  recorded  in  the  second  part  of  the  worksheet 
display  starting  at  (1,9) 


-.06109  .99813 

(see  Figure  V-15).  These  woights  .91737  -.39803 

.87288  .45992 


are  so 


comfortably  close  to  the  final  minimum-determinant  solution  (which  was 
obtained  by  Flotcher-Fowoll  iteration). 

-.05466  ,99851 

,92930  -.36932  that  this  approximation*  if  equally  close  in 
,85659  .51599 

many  other  examples,  can  woll  bo  considered  adequate  for  purposes  of 
categorical  scaling.  The  correlations  between  the  u^,  u2*  were 
obtained  by  MMULT  commands,  e.g.,  xJRjg  into  (5,9)  and  xjR^Xa  53 
corr(Uj,u2)  into  (10,10).  (see  Figure  V-16),  The  correlation  matrix 


1 -.331275  -.0815043 

.331275  1 -.248449  is  quite  close  to  the 

>.081504  -.248449  1 


minimum-determinant  matrix 


1 -.338552  -.075643 
>.338552  1 -.251130 
■.075643  -.251130  1 


A 


s&wWWfSS is& 


X61 


Urunys.4.,  .2. 15.011 47052733  .^S.T  flRW 
IROH  32#Z 

61318073.. SS200008 
WtULT  32.1.1.2.16,1,2.2.26.4 
ttGCfiLRR  25.4.1,2,15.01028948,26.4 
HGCflUfiR  28. 1.1. 2.-1. .23.1 
MERHSE  J. 0.28,1  * * 

flTRRNS  30.1  .1.2.28.4 
NttULT  28.1 ,1 .2.23.4.2.1 .31 .4 
RER0  6,7,8 
ROII  10 

1 . .819245, ,34165 
.01824S.J.. 09420 
HXMVBRT  10. 6.2,13,6 
MHULT  13.8.2.2,10.0.2.1.13.8 
hscflunn  28. 1,1,2,. 004079.29.1 

nSCDLRR  30.1 .1 .2. -.584450.31.1 
HgOO  29,1.1.2.31.1.34.1 
REfiO  9.10 
-.734974. -.670095 
JtSCREfiR  23,1 . 1 ,2.*10,G*.29»1 
SCRLflR  30.1. 1. 2, Bl 1.8k ,31.1 
jfb.i. 1,2.31, 1.34.1 

REftO  9.10 
-.061093,. 9981321 
jjnUU^U.l. 1.2, 1.3.2, 2,20,4. 

ROM  16  7 

.8809484 .-.2472708 
.813189, -.632 
.34105*. 2S81J 

sio:?6o'K2,i6'o,2i2i2o-!i 

ROH  2 ; 

.91 7373, -.398030 

» 30,1.1. 2, 1,5.2, 2. 30. 4 
j{  g32,l ,1,2,3,5.2,2,32,4 

KoImo 

.91314043. .40782721 
.873379!),,  4U704035 
.0942797.. 25811 34 
MWLriO.S.l  ,2.16,0,2,2,20,9 
RERO  9.10 
ROM  3 


REPtY  AREA 


Piguro  V-14 
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r 


6 

1 0.389QO0E-O1 

f *0.21DRDOE-O1 

3 -0.148520 

4 0. 048000E-02 

5 O.C 

6 1 .00000 

7 0.0 

e o.o 

9 0.0 
10  1.00000 

11  0.018245 

12  0.0 

13  3.04101 

14  -2.49133 

15  0.0 

10  0.908946 
17  0.813189 
JO  0.J41050 

20  0,540833 

olo 

B 8:8 

US  0.0 

ec  o.o 
S’8 

SO  0.0 

ua  0,2 

HO  0,0 
91  0,0 

11  8:8 

II  8:8 

3B  0.0 


39  0.0 
.40  0.0 


7 

0.0 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

o.o 

0.819245 

1.00000 

0.0 

-2.49133 

3.041C1 

0.0 

-0.247271 

-0.502000 

0.258110 

0.0 

-0.234700 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

0,17 

0.0 

0.0 

0.0 

o.o 

8.0  • 

.0 

0.0 

0.0 

0.0 

0.0 


OUTPUT  OREO 
WORKSHEET  PART  2 


0LIIHN6 

8 

8 

10 

0.0 

-0.C10930E-01 

0.998132 

0.0 

0.917373 

-0.398030 

0.0 

0.672076 

0.459922 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.341030 

0.0 

0.0 

0.942799E-01 

0.0 

0.0 

0.0 

0.0 

0.0 

0.004079 

0.0 

0.0 

•0.364458 

O.D 

0.0 

o.o 

0.0 

o.o 

0.0 

0.913140 

0.407027 

0*0 

0.073379 

0.487040 

0.0 

Q.04279GE-01 

0.258110 

0.0 

0 .0 

0.0 

0.0 

0.311520 

0.164141 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

o.o 

0.0 

0*0 

0.0 

0.0 

0.0 

0,0 

0.0 

o.o 

0.0 

0.0 

0,0 

0,0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

O.O 

0.0 

0.0 

REPLY  OREO 


figure  V-1S 


Worksheet  just  before  entering  NNULT  1,9, 1,2, 1,3*2, 2, 5,9 


OUTPUT  RREfl 


.872876,. 458922 
HHUt.T  I.0.J. 2, 1.3, 2, 2, 5,3 
iHtRflNS  1.9,3.2.22,6 
MHIILT  5,0.1.2,22.7.2.1.10.10 
W1ULT  I. 9, 1,2.1. 8.2.2. 6. 9 
flflULT  6.9.1.2,22.9.2.1.11.10 
MWLT  2,9,1 ,2. 3, 5, 2, 2 .7, 8 
HHULT  7.9.1.2,22,8.2.1.12,10 
READY 


REPLY  HREfi 
Figure  V-16 

Third  page  of  commands  for  scaling  example 
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and  has  determinant  .80847,  compared  with  .80373  for  the  minimum- 
determinant  solution. 

This  example  was  carried  out  on  the  IBM  2250,  using  conversational 
OMNITAB,  by  R,  E.  Bargraann,  in  3 1/2  hours,  at  a time  when  the  system 
had  low  priority  and  response  was  sluggish.  Again,  the  most  helpful 
feature  was  the  facility  to  look  at  t ■<  ^arksheet  after  almost  every 
single  command. 


D.  MULTIVARIATE  ANALYSIS 

The  following  example,  the  calculation  of  canonical  and  canonical- 
partial  correlation,  was  carried  out  by  students  at  the  University  of 
Georgia,  in  the  Multivariate  Methods  class  (STA  825) . They  were 
encouraged  to  use  the  interactive  OMNITAB  system.  In  supervising  the 
operation,  the  instructor  (R.E.  Dargwann)  had  to  advise  students  on 
efficient  techniques  of  organizing  the  worksheet  in  such  a way  that 
related  intermediate  results  would  appear  in  tho  same  worksheot  section. 
A particular  execution  of  this  problom  is  shown  in  tho  displays  in 
this  section.  Comments  reported  to  tho  author  by  several  students 
have  also  boon  included.  These  comments  serve  to  point  out  the  variety 
of  approaches  available  and  to  illustrate  some  of  tho  most  common 
difficulties  oncountercd  by  students. 

During  the  presentation  of  a course  in  multivuriato  methods,  one 
of  the  important  concepts  is  that  of  correlation  between  sots  of 
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variables.  Consequently,  the  instructor  will  introduce  the  concept  of 
canonical  correlation  and  derive  step-by-step  algorithms  for  the  evalu- 
ation of  relevant  results.  The  population  canonical  correlation  will 
be  shown  to  be  the  square  root  of  the  largest  characteristic  root  of 


JIlS12£22Z12  where  Z11  “ Varte)'  E22  “ Var(Z)  and  £12  a C0V(x,]r'). 

A 

a,  the  vector  of  weights  associated  with  x,  is  the  associated  character- 

A 

istic  vector  and  b,  the  vector  of  weights  associated  with  is 


■•1  * * 

£22£12—  T^e  Process  of  maximum-likelihood  estimation  is  performed  in 
the  following  steps: 

(1)  Obtain  R,  the  matrix  of  sample  correlations. 


R 


R11  R12 
♦ 

R12  R22 


(2)  Obtain  RjJ  and  R~* 

(3)  Obtain  ^22R12* 


(4)  Obtain  ‘vi2R22R12’ 

(5)  Obwin  ii^12(i22Rl2‘ 

(6)  Obtain  the  largest  characteristic  root  of  the 
matrix  obtained  in  (5). 

A 

(?)  Obtain  p(x,$,  tho  square  root  of  (6) 
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A 

(8)  Obtain  £»  an  associated  characteristic  vector  from  (5)  and 

(6). 

(9)  Obtain  £ » R^rJ2£, 

With  those  steps  in  mind*  a student  would  write  the  following 
OMWITAR  statements  (see  Figure  V-22)  to  obtain  p(x,£).  step  (1) 
requires  him  to  obtain  or  enter  the  correlation  matrix.  • In  this 
example  the  correlation  matrix  of  order  8 by  8 was  entered,  from  the 
console,  into  the  worksheet,  starting  in  location  (1,1)  following  the 
command  READ  1***8  , Thus  the  raw  data  would  appear  in  two  adjacent 
sections  of  the  worksheet.  Figures  V-17  and  V-1&.  It  is  useful  to 
check  input  data  before  further  calculations  are  performed.  In  this 
example,  an  error  was  found  in  row  7.  To  correct  this  error  it  was 
necessary  only  to  type  ROW  7 on  the  console  (since  control  is  still  in 
the  READ  mode)  and  thon  to  enter  tho  cor  octcd  row  as  illustrated  in 
Figure  V-19.  During  discussions  with  students,  it  was  discovered  that 
they  had  some  difficulty  entering  the  data.  Oao  problem  is  caused, 
of  course,  by  a lack  of  typing  skill,  which  again  shows  that  a minimum 
typing  facility  is  necessary  for  all  interactive  work  with  a computer. 
Another  common  problem  occurred  when  a student  attempted  to  enter  a row 
of  data  before  the  cuo  was  given  (ROW  N);  such  data  will  bo  lost, 
la  step  (2)  we  find  if1  and  if1,  . 

22  yy 

MINVERT  R22  4,4  2,2  10,1 
MINVERT  RYY  1,1  3,3  13,1 


OUTPUT'  -.fiREfl  . 


WORKSHEET  FORT  1 


1 

1 

2 

COLUMNS 

3 

4 

s 

! 

i.noono 

0.690000 

n.fi'ip.non 

0.2CCC30 

o.icsoco 

D 

4* 

C.RTVOO 

1 .00300 

O.SUUPCC 

o.csr.nnn 

0.200000 

3 

0.596000 

P -65500C 

1 .0000? 

-■O.2S5J00 

0.146000 

4 

C.:f't'OGG 

0.285000 

0-25500?  • 

i .ocono 

0.393000 

S 

0.165000 

0 .200000 

0-140000 

0.399000 

1 .00000 

6 

0.421000 

0.397000 

0-386000' 

n. 321 000 

0-162000 

7 

p. rococo 

0.30CC20 

0. 252nno 

n.370000 

0.23GGCC  • 

3 

0.376000 

0.343000 

o.??oo:io 

O.4O80U0 

0 .303000 

9 

0.0 

0.0 

O.P 

0.0 

0.0 

1C 

0.0 

0.0 

n.n 

0.0 

0.0 

11 

0.0 

0.0 

o.n 

o.o 

0.0 

12 

0.0 

0.0 

n.n 

0.0 

o.o 

13 

0.0 

C.O 

o.n 

o.o 

• o.o 

14 

0.0 

0.0 

0.0 

o.n 

0.0 

IS 

0.0 

0.0 

o.o 

o.o 

o.o 

IS 

G.O 

0.0 

n.n 

o.o 

o.o 

17 

0.0 

0.0 

o.n 

n.o 

o.o 

10 

C.O 

o.o 

G.O 

n.n 

o.o 

19 

0.0 

0-0 

0-0 

0.0 

o.o 

20 

0.0 

G.O 

n.n 

0.0 

o.o 

21 

0.0 

o.o 

o.o 

0,0 

0-0 

22 

0.0 

0.0 

0-0 

0.0 

o.o 

23 

C.J 

o.o 

o.c 

C.O 

c.o 

24 

0.0 

0.0 

0.0 

0-0 

o.o 

25 

o.o 

•o.o 

o.n 

o.o 

o.o 

26 

0.0 

G.O 

0.0 

n.n 

o.o 

27 

0.0 

0.0 

o.o 

n.o 

o.o 

28 

C.O 

0.0 

o.n 

n.o 

o.o 

29 

0.0 

G.O 

O.rt 

o.o 

0.0 

30 

0.0 

0.0 

o.n 

n.o 

0.0 

31 

0.0 

0.0 

o.o 

o.o 

0.0 

32 

C.O 

o.o 

n.n 

0.0 

o.o 

33 

0.0 

0.0 

C.Q 

C.O 

0.0 

34 

0.0 

o.o 

li.o 

0.0 

o.o 

35 

0.0 

0.0 

c .n 

o.n 

o.o 

30 

0.0 

0.0 

n.n 

0.0 

0.0 

37 

0.0 

0.0 

C.O 

(1.0 

0.0 

30 

o.c 

0.0 

n.n 

0.0 

o.c 

39 

0.0 

C.O 

n.n 

n.n 

* V 

o.o 

4° 

G.O 

0.0 

o.c 

c.o 

|~ 

~£pTy  Tien 

Figure  V~17 
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e 

7 

COLUHNS 

8 

s 

10 

1 

0.421000 

0.35J000 

0.376000 

0.0 

0.0 

2 

0.397000 

0.300000 

0.349000 

o.o 

o.o 

3 

0.380000 

0.252000 

0.329000 

o.o 

o.o 

4 

0.321000 

0. 370000 

0.408000 

0.0 

0.0 

S 

0.202000 

0 .230000 

0.303000 

o.o 

0.0 

6 

1.00000 

0.611000 

C. 642000 

o.o 

0-0 

7 

0.611000 

0.C42000 

0.642000 

0.0 

0.0 

8 

0.642000 

0.576000 

1 .00000 

0.0 

o.o 

9 

c.o 

0.0 

o.o 

o.o 

o.o 

10 

0.0 

0.0 

0.0 

o.o 

0.0 

11 

0.0 

0.0 

o.o 

o.o 

o.o 

12 

0.0 

0.0 

0.0 

o.o 

o.o 

13 

0.0 

0.0 

0.0 

o.o 

0.0 

14 

0.0 

0.0 

0.0 

o.c 

o.o 

15 

0.0 

0.0 

o.o 

0.0 

o.o 

16 

0.0 

0.0 

0.0 

o.o 

c.o 

17 

0.0 

0.0 

0.0 

o.c 

o.o 

18 

0.0 

0.0 

0.0 

0.0 

o.o 

19 

0.0 

0.0 

0.0 

o.o 

o.o 

20 

0.0 

o.o 

0.0 

o.o 

0.0 

21 

0.0 

0.0 

0.0 

o.o 

0.0 

22 

0.0 

0.0 

0.0 

o.c 

o.o 

23 

c.o 

o.o 

0.0 

0-0 

o.c 

24 

o.o 

0.0 

0.0 

o.o 

o.o 

25 

o.o 

0.0 

0.0  • 

o.o 

0-0 

25 

0.0 

0.0 

0.0 

o.o 

0.0 

27 

o.o 

0.0 

0.0 

0.0 

0.0 

28 

o.o 

0.0 

0.0 

o.o 

o.o 

29 

0.0 

0.0 

0.0 

o.o 

o.o 

30 

0.0 

0.0 

0.0 

0.0 

0.0 

31 

0.0 

0.0 

o.o 

0-0 

0,0 

32 

0.0 

0.0 

0.0 

0.0 

0.0 

33 

0-0 

0.0 

0.0 

0.0 

0.0 

34 

o.o 

0.0 

o.o 

o.o 

o.o 

35 

0.0 

o.o 

0.0 

0.0 

o.o 

36 

0.0 

0.0 

0.0 

o.o  • 

0.0 

37 

0.0 

o.o 

0.0 

o.o 

o.o 

39 

0.0 

0.0 

0.0 

o.o 

o.o 

39 

0.0 

0.0 

0.0 

0.0 

n.o 

Li 

0.0 

0.0 

0.0 

o.o 

0.0 

REPLY  AREA 


Figure  V-18 

Worksheet  after  entering  correlation  matrix 
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OUTPUT  RRER 

IF  THE  SCRECN  BECOMES  FULL  BN  RLflSM  HILL  SOUND.  KmEN  YOU  WANT  TO  SEE 
THE  NEXT  SECTION  OF  YOUR  PROGRAM*  PRESS  KEY  2. 

ERASE 

READ  I m"m  8 


1 .SB  .536  .26  . 

165 

.42! 

• 3S  .376 

.69 

1 -655  .265 

• 2 . 

397  . 

3 .349 

.596 

-655  1 .255 

1 .146  .380  .252  .329 

.26 

.285  .255  1 

.398 

.321 

.37  .408 

• 165 

.2  .146  .398  1 

.162 

.236  .303 

.421 

.397  .386  . 

321 

.162 

1 .611  .642 

.35 

.3  .252  .37 

.236 

.61! 

.642 

.376 

.349  .329  . 

408 

.303 

.642  .576  1 

ROH 

7» 

.35 

.3  .252  .37 

.236 

.611 

1 .576 

ROM 

Bt 

J& 

h 

l 


i 

i; 

i 

i. 

i 


REPLY  AREA 


Figure  V-19 

Changing  the  row' counter  while  entering  data 
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MINVEE7  is  the  matrix  inversion  command.  RZZ  and  RYY  are  comments 

inserted  as  aids  in  following  the  logic.  Note  that  the  lower  right* 

hand  partition  of  R is  Rgg.  This  partition  starts  in  coordinate  (4,4). 

The  first  two  arguments  of  the  command  indicate  the  upper  left-hand 

corner  of  the  matrix  t i be  inverted;  the  third  and  fourth  arguments 

contain  the  dimensions  of  the  matrix  and  the  last  two  arguments  specify 

the  upper  left-hand  comer  of  the  resulting  matrix. 

*1  1 

Step  (3)  requires  the  calculation  of  RyyRZy*  However,  in  this 
example  this  result  is  not  necessary  since  only  the  canonical  corre- 
lation is  desired.  Therefore,  the  student  would  proceed  directly  to 

step  (4)  in  which  he  obtains  R R*’1RI  . This  result  can  be  obtained 

zy  yy  zy 

in  one  statement  by  using  a special  matrix  command  as  follows: 

M(XAX')  13,1  3,3  4,1  2.3  17,1  . 

This  ctmaand  con  be  used  to  obtain  the  matrix  product  XAX'.  Tho  first 
four  arguments  indicato  the  location  and  size  of  A,  while  arguments  5 
through  8 indicate  the  location  and  size  of  X.  Tho  last  two  arguments 
are  used  to  indicate  tho  worksheet  location  of  the  result. 

Step  (5)  is  performed  as  a matrix  multiplication,  using  tho  result 
in  (4),  by  entering  the  command 

MflJLT  10,1  2,2  17,1  2,2  20,1 

whore  tho  first  four  arguments  define  tho  first  matrix  and  the  second 
( four  define  the  second  matrix  used  in  tho  matrix  multiplication.  As 
before  the  last  two  arguments  indicate  where  tho  result  is  to  bo  stored. 

Figure  V-20  shows  tho  results  of  the  preceding  commands.  At  the 
time  this  illustration  was  run,  eigenvalue  and  cngcnvcctor  routines  had 
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OUTPUT  RREfl 
WORKSHEET  PfiRT  J 


1 

2 

COLUMNS 

3 

4 

5 

1 

1 .00000 

0.690000 

0.596000 

O.CCOOOO 

O.JEbCDO 

2 

0 »G90000 

1 .00000 

0.655000 

0.295000 

0-200000 

3 

0.596000 

0.855000 

1 .00000 

0-255000 

0.146000 

4 

0.260000 

0.205000 

0,255000 

1 .oooco 

C.3SSOCO 

5 

0.165000 

0 .200000 

0.146000 

0.398000 

1 .00000 

6 

0.421000 

0.3a7000 

0.33G000 

0.321000 

0.1C2000 

7 

0.350000 

0.30POOD 

0.252000 

0 .370000 

0.236000 

8 

C. 376000 

0.349000 

0.329000 

0.408000 

0.303000 

9 

0.0 

0.0 

0.0 

0.0 

0.0 

)0 

1.18922 

-0.472911 

0.3 

0.0 

0.0 

n 

-0.472911 

1 .18522 

C.O 

0.0 

0.0 

12 

0.0 

0.0 

0.0 

0.0 

0.0 

13 

2.05104 

-1 .07628 

-0.517452  ‘ 

0,0 

0.0 

14 

-1  .07629 

2.31617 

-0.875627 

0.0 

0.0 

15 

-0-517452 

-0.075627 

1 .89194 

C.O 

0.0 

16 

0.0 

0.0 

0.0 

o.o 

0.0 

17 

0.937622E-01 

0.609906E-01 

0.0 

0.0 

0.0 

18 

n .G09906E-01 

0.414995E-01 

0.0 

o.o 

o.o 

19 

0.0 

0.0 

o.c 

o.o 

0.0 

20 

0.825667C-01 

0.528446E-01 

C.O 

0.0 

o.o 

21 

0.281290E-01 

0.204673E-01 

0.0 

0-0 

o.c 

22 

D.G 

0.0 

0;0 

0.0 

o.o 

23 

0.0 

0.0 

0.0 

0.0 

0.0 

24 

C.O 

0.0 

n.o 

C.O 

• o.o 

25 

0.0 

0.0 

o.c 

C.O 

o.o 

26 

0.0 

0.0 

n.o 

o.c 

0.0 

27 

0.0 

O.C 

0.0 

c.c 

o.o 

29 

C.O 

0.0 

o.o 

0.0 

o.o 

29 

o.c 

o.o 

0,0 

0.0 

0.0 

30 

0.0 

c.c 

0.0 

0.0 

0.0 

31 

o.o 

0-0 

o.o 

0.0 

o.o 

32 

o.c 

c.c 

o.c 

o.o 

0.0 

33 

C.O 

0.0 

o.p 

0.0 

o.o 

34 

0.0 

0.0 

C.O 

0.0 

o.o 

35 

o.o 

0.0 

o.o 

o.o  . 

0.0 

36 

0.0 

c.c 

C.O 

0.0 

0.0 

37 

0.0 

0.0 

0.0 

o.o 

o.o 

39 

o.o 

o.c 

0.0 

0.0 

0.0 

39 

o.o 

0.0 

0.0 

0.0 

o.o 

f 

0-0 

0.0 

, 0.0 

0.U 

0.0 

REPLY  afiCfl 


* 

Piguro  V-20 

Worksheet  after  encoring  MMllLT  10*1  2,2  17,1  2,2  20,1 
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not  been  incorporated,  hence  steps  (6)  and  (7)  had  to  be  performed  on 
a desk  calculator,  an  easy  operation  in  this  instance. 

The  advantages  of  having  an  interactive  worksheet  system  are  oven 

more  pronounced  in  the  next  phase  of  this  assignment  following  the 

introduction  of  the  concept  of  canonical  partial  correlation.  This 

concept  requires  that  the  instructor  explain  the  conditional  variance- 

covariance  matrix  through  a discussion  of  conditional  distributions. 

This  conditional  variance- covariance  matrix  can  be  represented  in 
* » 

general  as  = E..  ^ the  covariance  matrix  for  the  i’th 

and  j'th  sets  with  the  k'th  set  partialed  out.  To  obtain  a canonical 
partial  correlation  one  needs  only  to  replace  the  variance-covariance 
matrices  used  in  stops  (1)  through  (7)  abovo  by  the  conditional  variance- 
covariance  matricos.  This  procedure  can  bo  outlined  in  the  following 
steps: 

(ia)  Calculate  \ln  * Rn  - 


(2a)  Calculate  U22  “ U22“  R23R33R23’ 


(3a)  Calculate  R12  « Ri2  - 


(4a)  Perform  steps  (1)  through  (7)  given  abovo. 


These  steps  can  bo  carried  out  using  the  following  OMJJITAB  proced 
ure*  In  this  example,  students  had  to  find  the  canonical  correlation 
between  sets  y and  z after  part ialing  out  set  u.  Thus,  the  first 
statement  would  be 


MWm  RUU  6,6  3,3  23*1 
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since  is  needed  to  obtain  the  conditional  variance-covariance 
satrices.  This  statement  would  be  followed  by 
M(XAX')  23,?  ?,3  1,6  3,3  27,1 

to  obtain 

At  this  point  the  8 by  S correlation  matrix  is  moved  into  the  f 
lower  half  of  the  worksheet  (MMOVE  1,1  8-8  41,1)  so  that  the  subtrac- 
tions can  be  carried  out  in  the  upper  half.  None  of  the  students  inter- 
viewed moved  the  correlation  matrix  as  is  done  here.  They  all  stored 

* * * 

Rll*  R22  Ri2  wfierever  they  could  within  the  first  section  of  the 
worksheet.  All  of  the  students  also  kept  all  res  is,  both  intermediate 
and  final,  within  the  first  section  of  the  worksheet,  replacing  earlier 
results.  The  transfer  of  the  original  correlation  matrix  to  a new 
region,  and  the  subsequent  construction  of  the  conditional  covariance 
matrices  into  the  field  of  the  original  correlation  matrix,  made  the 
calculation  of  canonical-partial  correlation  identical  to  that  of  the 
canonical  correlation.  The  students,  in  not  following  this  procedure, 
were  required  to  rc -structure  the  coordinates  of  the  matrices  needed  in 
intermediate  calculations. 

As  a consequence  of  moving  the  correlation  matrix,  the  canonical 
partial  correlation  can  now  bo  obtained  by  repeating  the  commands  used 
earlier  to  obtain  the  canonical  correlation.  It  may  be  of  interest  to 
note  that  the  facility  for  repeatedly  executing  a sequence  of  commands 
is  available  in  the  batch  version  of  OMNITAB.  This  feature  was  not 
incorporated  within  the  interactive  version  because  problems  which 
require  extensive  repetition  of  a section  of  code  should  be  performed 
in  the  b;  :ch  mode. 
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Step  (la)  is  completed  by  entering  the  command 
MSUB  14  3,3  27,1  3,3  1,1  . 

Step  (2a)  requires  the  same  sequence  of  commands  as  were  required  for 

step  (la)  and  thus  can  be  entered  very  quickly  as  follows: 

M(XAX')  23,1  3,3  4,6  2,3  31,1 
MSUB  4,4  2,2  31,1  2,2  4,4 

* 

To  obtain  R the  command  M(XAX’)  must  be  replaced  by  a pair  of  MMULT 
zy 

commands. 

MMULT  23,1  2,3  6,1  3,3  34,1 
MMULT  4,6  2,3  34,1  3,3  38,1 
MSUB  4,1  2,3  38,1  2,3  4,1 

To  perform  step  (4a),  it  is  necessary  only  to  repeat  the  steps 

required  earlier  to  obtain  the  canonical  correlation. 

MINVERT  RZZSTAR  4,4  2,2  10,1 
MXNVERT  RYYSTAR  1,1  3,3  13,1 
M(XAX’)  13,1  3,3  4,1  2,3  17,1 
MMULT  10,1  2,2  17,1  2,2  20,1 

These  results  can  be  seen  in  Figuro  V-21.  From  these  results  the 
canonical  partial  co  '•olation  can  be  easily  obtained. 

This  example  illustrates  the  advantage  to  be  gained  in  certain 
classes  through  the  use  of  OMNITAB,  Figure  V-22  shows  a listing  of 
the  complete  set  of  commands  used  in  this  example.  The  program  was 
relatively  easy  to  write  and  was  written  in  a much  shortor  period  of 
timo  than  would  have  been  required  to  obtain  the  same  results  using 
calculators  or  computer  programs. 

Figure  V-23  shows  the  approach  of  a student  who  followed  a 
slightly  different  procedure.  His  comment  after  tho  session  was  that, 
’'unfamiliarity  presented  a slight  problem  at  first  but  after  executing 
several  commands  I became  familiar  with  the  operations  and  then  had  no 
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f — 

OUTPUT  RKLfi 
worksheet  PRRT  1 

m 

1 

2 

c o i.  y n n s 

3 

4 

s 

1 

0.797481 

0.502997 

0.419861 

0 .280000 

0.165000 

2 

0.502S97 

0-825941 

0.489232 

0.285000 

0.200000 

3 

0.418861 

0.489212 

0.839642 

U • *.**■  v WU 

0.140000 

4 

C.7692F6E-01 

0.119782 

o.msnoi 

0.808053 

0.263087 

b 

0.531 6056-01 

0.300141 

0.571SC4E-01 

0. 763087 

0.390558 

6 

0-421C00 

0.397000 

0.396000 

0.321000 

0.162000 

7 

0.350000 

0.300000 

0. 21*2000 

0.370000 

0.236000 

8 

0.37CC0C 

0.349000 

0.329000 

0.403000 

0.303000 

9 

0-0 

0.0 

0.0 

o.o 

0.0 

10 

1 .37202 

-0-402608 

c.o 

0.0 

o.o 

11 

-0.402608 

1 .23352 

0.0 

0.0 

o.o 

12 

0.0 

C.O 

0.0 

c.o 

o.o 

13 

2.15462 

-1.02917 

-0.477773 

0.0 

o.o 

14 

-1 .02917 

2.34034 

-0.848953 

0.0 

o.c 

15 

-0.477773 

-0.848S53 

1 .92453 

o.o 

o.o 

1C 

0.0 

G.C 

0.0 

c.o 

o.o 

17 

0.19507GE-C1 

0 . 1 444S3E-D1 

0.0 

o.o 

o.c 

18 

0.1 44483E-01 

0 • 1 22662E-C1 

o.o 

o.o 

o.o 

19 

0.0 

0.0 

o.o 

0.0 

o.o 

20 

0.209479E-01 

0 . 3 488496-01 

o.o 

o.o 

o.o 

21 

0.98682S6--02 

C -9333626-02 

o.o 

o.o 

o.o 

22 

c.o 

o.o 

o.o 

c.o 

o.o 

23 

1 .99593 

-0 .720831 

-0.866933 

c.o 

0-0 

24 

-0.720931 

1 .75670 

-0.54SU87 

o.o 

o.o 

L* 

-C.86£b33 

-C.S49CS6 

3 .87278 

0-0 

o.o 

28 

0.0 

0.0 

0.0 

c.o 

o.o 

27 

0.202539 

C.  187003 

0.176139 

c.o 

o.o 

nQ 

k •' 

C. 197003 

P.174P59 

('.165798 

0.150358 

o.o 

0-0 

29 

0.170133 

0.165738 

o.o 

o.o 

<»r> 

r.c 

0.0 

0.9 

o.o 

o.o 

31 

C.  193947 

0.1S4933 

0-0 

o.o 

0*0 

32 

0.134913 

0.103442 

o.o 

o.o 

o.o 

33 

C.O 

C.P 

o.o 

c.o 

o.o 

34 

0.262489 

0 .274009 

0.303979 

c.o 

o.o 

23 

0.104919 

C-4S2CS96-72 

-0. 1676396-01 

c.o 

o.c 

36 

0.147040 

C. 144741 

0.143177 

0.0 

. c.c 

37 

0-0 

c.o 

0-0 

O.o 

7.0 

3b 

C. 183074 

f .158218 

0 • 349599 

o.o 

r.n 

39 

C. 111039 

C. 9535326-01 

r.9b3"3SE-Cl 

0 .0 

c.o 

40 

• 

0.0 

c.o 

0-0 

o.o 

p.o 

REPLY  RRER 


rv 


Figure  V-21 

Worksheet  after  entering  MMULT  10*1  2,2  17,1  2,2  20,1 

THIS  IS  FSTAR 


M*  IM.4n>3VWW>:KT«'«^  _ . 


• OUTPUT  AREA 

|TF  THE  SCREEN  BECOMES  FULL  AN  A!. ARM  HILL  SOUND.  WHEN  YOU  HANT  TO  SEE 
THE  NEXT  SECTION  Of  YOUR  PROGRAM.  PRESS  KEY  2. 

CRfiCE 

REA”  1 ***  8 

1 .69  .696  .26  .IBS  .421  .36  .376 
•C3  1 .665  .205  .2  .397  .3  .349 
.596  .6SS  1 *255  .146  .386  .252  .329 
.26  .295  .255  I .398  .321  .37  .408 
.165  .2  .146  .398  1 .162  .236  .303 
.423  .397  .386  .321  .162  1 .611  .642 
.35  .3  .252  .37  .236  .613  .642 
.376  .349  -329  .408  .303  .642  .576  1 
RON  7 

•35  .3  .252  .37  .236  .611  1 .576 
H INVERT  RZZ  4.4  2.2  10.1 
H INVERT  RYY  1.1  3.3  13.1 

IHV-..V:  13.1  3.3  4.1  2.3  3 7,3  SRZYaRYYINVERSEsRZYP.RJME 

MOULT  10,3  2.2  17,1  2,2  20,1 

HINVERT  RUU  6.6  3,3  23.1 

MXAX’l  23.1  3.3  1.6  3.3  27.1 

KMOVE  1.1  8.3  40.11 

MMOVE  1.1  8,8  41.31 

MSUB  1.1  3.3  27,1  3,3  3.1  RYYSTAR 

MfXAX’l  23.1  3.3  4.6  2,3  31,1 

MSUS  4,4  2.2  31.1  2,2  4.4  RZZSTRR 

tff.l"  T 23,1  3.3  6,1  3.3  34.1 

MOULT  4.6  2.3  34.1  3.3  38.1 

MSUB  4,1  2.3  38.1  2.3  4.1 

Ml!.".’ CRT  RZHSTAR  4.4  2,2  10.1 

MlNVEr.T  RYYSTAR  1.1  3.3  13.3 

H! XRY ’ 1 13.1  3.3  4.1  2,3  17.1 

MOULT  10,1  2.2  17.1  2,2  20.1  THIS  IS  PSTAR 

READY 


i 1 

- 

REPLY  AREA 

1 

1 

Figure  V-22 

Conunands  used  for  correlation  example 
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MINVERT 

MINVERT 

M(XAX’) 

MMULT 

MINVERT 

M(XAX') 

MMOVE 

MSUB 

M(XAX’) 

MSUB 

MMULT 

MTRANS 

MMULT 

MSUB 

MINVERT 

M(XAX') 

MINVERT 

MMULT 


4 4 2 2 10  I 

1 1 3 3 13  1 

13  1 3 3 4 1 2 3 17  1 

10  1 22  17  1 2 2 20  1 

6 6 3 3 23  1 

23  1331633  27  1 

1 1 3 3 31  1 

31  1 3 3 27  1 3 3 31  1 

23  1334623  10  4 

4422  10  422  13  4 

4623  23  133  35  1 

1 6 3 3 38  1 

35  1 2 3 38  1 3 3 35  1 

4 1 35  1 2 3 35  1 

31  1 3 3 27  1 

27  1 3 3 35  1 2 3 17  3 

13  4 2 2 20  4 

20  4 2 2 17  3 2 2 30  4 


'S 

Figure  V- 23 


A second  approach  to  the  correlation  example 


difficulty.”  Another  student  who  had  had  some  experience  with  the 
batch  version  at  Iowa  State,  expressed  a preference  for  the  Interactive 
OMNITAB  version  because  he  "saw  all  results  right  away."  Since  this 
was  the  very  purpose  of  the  development  of  our  interactive  version, 
this  comment  seems  to  indicate  that  some  measure  of  success  has  been 


achieved. 
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OO  TO  10 

1000  00  1010  I a 14.  JJ 

RCt  I ) a RCt  I > ♦ RCt  13  1 a F£Xf>2(  RCt  II  I.  RCt  12  ) 1 

11  a 11  a KKt  1 1 

12  a 12  * KKt  2 ) 

1010  13  a 13  ♦ KKt  3 1 

CO  TO  10  * 

6N0 


ARIT  53 
ARIT  66 
ARIT  67 
AS IT  68 
ARIT  S3 
ARIT  60 
ARIT  61 
ntUT  62 
ARIT  63 
ARIT  64 
ARIT  65 
ARIT  66 
ARIT  67 
ARIT  68 
ARIT  63 
ARIT  70 
ARIT  71 
ARIT  72 
ARIT  73 
ARIT  74 
ARIT  7S 
ARIT  76 
ARIT  77 
ARIT  70 
ARIT  78 
ARIT  80 
ARIT  81 
ARIT  82 
ARIT  83 
ARIT  84 

Afar  ou 

ARIT  80 
ARIT  87 
ARIT  80 
ARIT  08 
ARir  at) 
ARIT  at 
ARIT  82 
ARI 83 
ARIT  84 
ARI.'  89 
831'’  00 


“2 


\ 


5 

i 

x 

3 

7 

'} 

i 

•i 

$ 


% 
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SUaROUTlfiE  ARYVEC 

cohuon  / ouocKn/nooe.«,:<nR!Jm).Knao,fl.io.nso2.HEnco(iO).K«ceNO 

1 .HEK'COSt  lQ.5)  .USflVE.MSftVe.iirLflO 

cowuh  / buiko  / KJ{2nr?j,/R;?a;tC5j,K;«ot33},flSfl:>ta(Si)»Nfmfl)i. 

1 HROfl.NC)L.NHROS,VUXYi'(31 
C0(l»10{V0l..3.;!',r/f<fiHE  UJ.Ul.L2 . ISRFuO 

cohuon/scrat/ai  noi 

C »■*•* 

C THIS  6'JS«JUTJJ)E  16  CALLED  IN  RESPONSE  TO  THE  COfMAROS 
C HlflVj  - UZ=6 
C - L2a? 

C»ans» 

C CHECK  FOR  CORRECT  NUHUEri  OF  fli  GUtlfHfS 

C tmaaa 

I F t HAROS  •{(£  .6  .AND .CAROS  .HE .7 ) 00  TO  10 

C »»«»*» 

C CHECK  TO  SEE  JF  (ILL  ARGUMENTS  ARE  JN7E3ER3 
C n«» 

JaNAROS 
CALL  CKIflOtJ) 

IF(J.HE.O)  00  TO  470 

kBhSM 

COMPUTE  OOPSESSES  OP  CflLUKHS  AND 

CHECK  TO  GEE  IF  DIMttSlONS  ME  OUT  OF  RANGE 

■tuiva 

CALL  AOHESr.tS.IOP) 

IFU0P.E3.0J  GO  Til  11 

iF(jiHR0s.e«,7i  oo  to  4S0 

Js| 

inLZ.EA.C)  CO  TO  440 
jcGninRttfjsi 

IFUC3.LT.J  .OR.iCu.CT.CO)  CO  TO  470 
00  TO  400 

440  enu  pruvk’Siiio.iuaj 

IFtlCa.EO.Ol  00  10  11 
00  TO  HW 

450  tARCiHS)«IRRCS(0)  • 

ifl«G3ui)..in;;oct7) 
lfincr,«7>«l 
10003(0)21 

IflRGfit  L2+1 )al  ARGOt  L2-3 1 

Jag 

4G0  CALL  HTXCIi'UJl 

IP(J-I)  411.470.400 
470  CALL  CRSOiiOl 
. RETURN 

400  CALL  ERROR  (171 
RETURN 

400  CAM,  Pl.fW 

lFfNFtA1.Efl.il  RETURN  ‘ . 

lAl’Kir.RORU) 

inRlJ::G3.1-(1.7)  IC3=lflROO(S) 
jpniflRPsa;;-3) 

JP(L2.Lli.7)  CO  TO  040 


ARTY  1 
MW  2 
ARVV  0 
ARYV  4 
ARYV  S 
ARYV  6 
ARYV  7 
ArtYV  8 
AitYV  8 
ARYV  10 
ARYV  ! 1 
ARYV  iz 
ARYV  13 
ARYV  U 
ARYV  15 
ARYV  1G 
ARYV  17 
ARYV  18 
ARVV  IQ 
ARYV  20 
ARYV  21 
ARvy  22 
ARVV  23 
ARYV  24 
ARvy  25 
ARVV  26 
ARYV  27 
ARW  20 
ARVV  29 
ARYV  30 
ARVV  31 
ARVV  32 
ARW  33 
ARVV  3t 
AHYV  33 
ARVV  36 
ARVV  37 
ARVV  30 
AtVV  30 
ARVV  40 
A<YV  4! 
ATVV  42 
ARYV  43 
ARYV  44 
ARYV  45 
ARYV  40 
ARYV  47 
ARYV  40 
ARYV  49 
ARYV  SO 
ARYV  St 
AftYV  52 
ARYV  S3 
AAYV  G4 
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JP=mROSM) 

IROlsNRQH 
JR02=1 
00  TO  600 
640  1001=1 

IRD2sNR0M 

JPclOKGSO) 

600  DO  740  1=1. IP 
Iflr-IfiP 
I 0=1 OP 
ftlllaO. 

00  COO  J=1.JP 

mnaRcumuiUuoi^Rtn 

in=ifi*inoi 

GGQ  10=10*1 

jfip=ifip*inD2 

740  CONTINUE 

C niiu 

C STORE  RECULTS  111  II0RH6NEET 

C BUMS 

00  000  1=1, IP 

Rcucsjafltn 

ica=ics*ino2 

600  CONTINUE 
RETURN 

10  CRU  ERROR!  10) 

RETURN 

11  CRLL  ERROR! 11) 

RETURN 

CNO 


RRYV  55 
RRYV  50 
RRYV  67 
RRYV  68 
RRYV  BO 
RRYV  00 
RRYV  61 
RRYV  62 
RRYV  03 
RRYV  04 
RRYV  OS 
RRYV  00 
RRYV  07 
RRYV  00 
flnYV  09 
RRYV  70 
RRYV  71 
RRYV  72 
RRYV  73 
RRYV  74 
RRYV  75 
RRYV  76 
RRYV  77 
RRYV  70 
RRYV  70 
RRYV  00 
RRYV  81 
RRYV  02 
RRYV  03 
RRYV  04 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


to 


c 

c 

c 
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subroutine  nsm< 

COHrt-M  / 6L3Ci;n/nOOE  .M,KflS0l77)  ,MRG,fiRG.flRG2.NEHC0C  13}  MRDENO 
l.N£KC03n3.SI.KSaVE,NSflV£,NFLRO 
01  HENS  ion  NRK12} 

THIS  SUBROUTINE  IS  CdLLEO  HUE;,'  ASTERISKS  ARE  FOUND  IN  THE  INPUT 
LIfiC._  KARO  IS  USED  AS  0 CODE  FCR  OJTH  INPUT  AND  OUTPUT. 

SINGLE  ASTERISK 
DOUBLE  ASTERISKS. 

ERROR 

FLOATING  POINT  CONSTANT 
INTEGER  VARIABLE 
FLOUTING  POINT  VARIABLE 
WORKSHEET  ENTRY  TO  BE  USEO  AS  AN  INTEGER 
WORKSHEET  ENTRY  TO  UE  USEO  AS  A FLOATING 
POINT  HUHOER 

ASTERISKS  INDICATING  THROUGH 


Ho  INPUT 


AS  OUTPUT 


KfiRGsl 

Kn:to=o 

KAROal 

KARS--2 

KRR0s9 

KAR0=4 

KARGaS 

KARCnG 


Rffitfe?  - 


LaKHRO 
HcNONOLAI I } 
IFCK.NE.40 1G0  TO  20 


fl  LONO  LINE  OF  ASTERISKS  FOUND 


KSR0=7 

H=H*1 


IFIKARDIH) .EO.'IQ)  00  TO  IS 
GO  TO  120 

20  IFTK.GS.SOCO  TO  033 
IFIK.GE.IOJCO  TO  SO 
C 

C RUDDER  IS  FIRST  NON-CLANK  CHARACTER*  SET  II  tj  C0S1HR 

C 

N*43 

30  CALL  AARGS 

lFfltfiRO.NE.0)  00  TO  300 
IFIM,iiI3LfUn.EO.}l)IFUl-10)40.4S.40 
00  TO  333 

40  H a II  ♦ 1 

IFtROmflt  1 J.GE.IOIOO  TO  093 

c 

C GET  II  m ASTERISK 

C 

Na40 
TsARO 
GO  TO  3(1 

46  nsoaemio 
AKGsT 
RflSOsS 
CO  TO  100 

c 

C LETTER  FOUND  FIRST 

C 

SO  CALL  NNANECNAiiml 

call  pwcoNmuuin 


ASTE  1 
ASTE  2 
ASTE  3 
ASTE  4 
ASTE  5 
ASTE  6 
ASTE  7 
ASTE  0 
ASTE  0 
ASTE  10 
ASTE  11 
ASTE  12 


ASTE 

13 

ASTE 

14 

ASTE 

IS 

ASTE 

10 

ASTE 

17 

ASTE 

18 

ASTE 

19 

ASTE 

20 

ASTE 

21 

ASTE 

22 

A3TE 

23 

ASTE 

24 

ASTE 

25 

ASTE 

20 

ASTE 

27 

A8YE 

20 

ASTE 

28 

ASTE 

30 

ASTE 

31 

ASTE 

32 

ASTE 

33 

ASTE 

34 

ASTE 

38 

ASTE 

30 

ASTE 

37 

ASTE 

SO 

ASTE 

38 

ASTE 

40 

ASTE 

41 

ASTE 

42 

A3IE 

43 

ASTE 

44 

ASTE 

46 

ASTE 

40 

ASTE 

47 

ASTE 

40 

ASTE 

49 

ASTE 

SO 

ASTE 

61 

ASTE 

62 

ASTE 

69 

note 

64 

\ 
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IF<ARO.EO.O.)GO  TO  00 

c 

C PHYSICAL  CONSTANT  FOUND,  SET  KARO  c 1 

C 

KfiRO*l 

IFtL.EIM)  GO  TO  00 
00  TO  090 
C 

C NAME  HOT  IN  PHYSICAL  CONSTANT  LIST,  TRY  VARIAOLE  LIST 
C 

00  CALL  YARCOMtNAHI 1 )) 

ircflno.HE. o.ioo  to  go 

CALL  ERROR! U I 
70  KARG&t 
RETURN 
00  KARCfcS 

GO  IFfNONQLA! I ! «HE*40ICO  TO  090 
100  tt=H*l 
C 

C CHECK  THAT  THE  HUrtoES  OF  ASTERISKS  AT  THE  END  OF  THE  EXPRESSION 

C TO  THE  6m  AS  AT  THE  UE0INN1H0,  LaO  HERNS  1.  1st  HERNS  It 

c 

IF(L.HE.O>IF<HAr{O(Hl-»0JU0.900aiO 
IF!  HARD!  HI  «HE  >40  *0R  .HARO!  11*1 ) .Efl  .40  )03  TO  ODD 
11*11*1 

tlO  UAROsHARO*L 
120  HCTUlDl 
803  CALL  ERROR! 71 
CO  TO  70 
END 


ASTE  65 
ASTE  50 
ASTE  67 
ASTE  58 
ASTE  59 
ASTE  60 
ASTE  61 
ROTE  62 
ASTE  63 
ASTE  64 
ASTE  C5 
ASTE  GO 
ASTE  67 
ASTE  60 
ASTE  69 
ASTE  70 
ASTE  71 
ASTE  72 
ASTE  73 
ASTE  74 
ASTE  75 
ASTE  70 
ASTE  77 
ASTE  70 
ASTE  79 
ASTE  00 
ASTE  01 
ASTE  02 
ASTE  03 

note  Q* 
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BLOCK  OflTfl  BLOC 

cohnon  / eLoexK  / nctop  bloc 

COMMON  / eLOCKn/HCOe.n<KnnO(77J.KfinO.,fiRG.f1i’?C2,NCMCOU33.HROEHO  BLOC 

l.HEKCOSl I9.5J.K5nVC.HSHVE.»FLHG  BLOC 

COHHON/PCOIlfiT/F  1 2 ) .11  ( 2 ) BLOC 

COMMON  / tlLOCXO  / liC  C 2439 ) . I ARGSf  63 ) .KINOf 39 ) .ARGT)13( 5 1 ) .NRMAX * BLOC 

I NROH  .HCOL .NnftOS . VWXYZ 1 5 1 BLOC 

CflMMCN/ULOCKE/MHfc(4 ) .Li  .LZ.ISRFLA  BLOC 

COHHC;i/KPLOT/.'!rRaHE.XKNO.SIHE.SPnCC  BLOC 

COHHON/CONSTS/Pi  .E.HALFPI  .QCG.RAO  OLOC 

BLOC 

THIS  BLOCK  DEFINES  CERTAIN  CONSTANTS  HM1CH  SERVE  OIFFERENT  OLOC 

FUNCTIONS  IN  THIS  SYSTEM*  BLOC 

BLOC 

DATA  PI, E.HF.LFPI  .DEO. R.qD/3.141593.2. 716282.  OLOC 

t 1, 370738.0.017433^.37.23373/  BLOC 

ONTO  P.N/344if;*iS. 2. 710202. J13O7.304S/  BLOC 

ONTO  HOOe.KRCcim.KGnVE.NSflVE.HFLfiO/l , 74,0.28. 0/.NCT0P/1/.L1/0/  OLOC 

SOTO  HftilAX.NKUN . NCOL/O.OO. 30/. NFROHE.KKNO .SIZE, SPACE/0 1 1 .S.B.S.O/  OLOC 
END  OLOC 

SUBROUTINE  CHANGE  CHAN 

COMMON  / HLOCi\fl/MODE.I1.KRROt77).KnnO,flil0.flR02.NEHCOn31.KROEHO  CHAN 

I.M6HCOSUO.BI.KSf»VE.rieaVE.NFLOO  CHAN 

COMMON  / liLQCKO  / AC i 2433 1 « I RRGS1 691  >K JNO( 33 1 .fltlOTAQI  5 1 ) .NSHAX , CHflil 
1 HR0y*HC0L.N;W03.VNXV2tSI  CHAN 

CHAN 

THIS  SUBROUTINE  CHANGES  SIOHS  OF  ELEMENTS  IN  COLUMNS  SPECIFIED  OY  CHAN 
THE  COItiUlNO  CHANGE.  CHAN 

CHAN 

IFINflN6S.LT.il  CO  TO  310  CHAN 

CALL  CHifCOLT  1 1 CHAN 

- iru.60.tl  00  TO  809  CHAN 

IFTNfMAX.UM J 00  TO  309  CHAN 

CALL  PLffit  CHAN 

irtnn.flO.60.1)  RETUilH  CHAN 

00  20  1=1 .HAAOG  CHAN 

.MAFIOSI  i>  CHAN 

DO  20  Nstl.HSNNX  CfIRN 


OJsJ*N-l 

20  HCt JJ)=-RC( JJ) 
CO  TO  930 
309  CALL  CARON  135 
CO  TO  333 

010  CALL  CtiAON  C105 
cu  ro  ano 

003  CALL  FRNOiUfi) 
8C3  HETUim 
COO 


CHAN 

CHAN 

CHAN 

CHAN 

CHAN 

CHAN 

CHAN 

CHAN 

CHAN 

cm 


1 

2 

3 

4 

5 
8 
7 
0 
a 

10 

n 

12 

19 

14 

18 

18 

17 

10 

19 

20 
1 
2 

3 

4 

5 
0 
7 
B 
3 

10 

n 

12 

13 

14 
16 
10 
57 
10 

19 

20 
21 
22 

23 

24 
26 
26 
27 
20 


nnnnn 


19S 


C 

C 

c 

c 

c 

c 


SUBROUTINE  CHKCOLt  d J 

COHHCN  / 0L0CK0  / RC(2439MAm}Sl091.MNDC39}.AR0Tfl3l51  l.NRWtX. 

S NHOH .NCOL . HAROS <VUXYZ(S1 

THIS  SUBROUTINE  CHECKS  TO  SEE  THAT  IRROSIl)  THROUGH  lAROStHARCS) 
ARE  LEGAL  CCLUHN  MUKUERS.  RETURNS  d=0  KOR  NO  ERROR  UNO 
J=1  EUR  ERROR.  IT  ALGO  CONVERTS  MRCOtll  THROUGH  IflRSStHMAS)  TO 
THE  BfcOINHIHO  ADDRESSES  Of  THE  SPECIFIED  COLUMNS  IN  THE  WORKSHEET 


I 


JO 

£0 


irt  HARDS 
J a I 
GO  TO  40 
00  30  I a 


.OT.  0 1 CO  TO  20 


I. 


HAROS 

call  noRE6st  i.  i finest  i i I 

!F(  IflRGSt  I I .L£.  0 ) CO  TO  10 
90  CONTINUE 
J a 0 
40  RETURN 
END 

SUBROUTINE  CXINOtdl 

COHMO.N  t OLOCKO  / RC(2430).IRRQ0t00).KlN0(3PI.RROTRStQl).HRHfUt« 

1 HROH  .NCOL  .HAROS . VHXTZ  l S ) 

THIS  SUBROUTINE  CHECKS  THE  FIRST  d ARCUI1EHT5.  IT  RETURNS  dsO  IF 
ALL  ARE  INTEGERS,  del  IF  ALL  ARE  REAL  AND  d=2  IF  BOTH  TYPES  ARE 
FOUND. 

JA»J 

JcO 

GO  10  Isl.JA  , 

IFtKIHPC 1 J .UE.O)  CO  TO  10 
10  CONTINUE  » 

RETURN 

IS  dsl 

GO  20  lal.Jfl 
irtHIHOUl.NE.ll  CO  TO  30 
20  CONTINUE 
BETUHM 
30  d*2 
RETURN 

EHO  * 


3 

4 

3 

6 

7 

8 
9 


CHKC 
CHKC 
CHKC 
CHKC 
CHKC 
CHKC 
CHKC 
.CHKC 
CHKC 
CHKC  10 
CHKC  11 
CHKC  12 
CHKC  19 
CHKC  14 
CHKC  IS 
CHKC  IG 
CHKC  17 
CHKC  10 
CHKC  ID 
CHIN 
CHIN 
CHIN 
CR1N 
CHIN 
CKIH 
CMH 
CHIN 
CKIH 
CKIH  10 
CKIH  II 
CKIH  12 
CMH  13 
CKIH  14 
CKIH  IS 
CHIN  19 
CHIN  17 
CKIH  13 
CKIH  !« 
CKIH  £0 
CHIN  21 
CKIH  22 


1 

2 

3 

4 

5 
0 

7 
0 

8 


ItMUU 
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SUBROUTINE  COIflNDln)  COHO  1 

OIHCUSION  llf!)ifS(Z02).,«0RK:i4).«rH.TE5CTU3).Nm3O).»WU4&)  COHR  2 
EQUIVALENCE  («;m„int1ESm).{N2tl),N!)MEStl37))  COMA  3 

conn  4 

THIS  SUBROUTINE  CAUSES  A LIST  OF  AVAILABLE  COMMNOS  TO  COHR  8 

OE  OISPLAYEO  OH  THE  2260  SCREEN.  COHA  0 

COHR  7 

DATA  Nl/’RROOS*  S ’RARVS ’EC  *,’1195  S’  S’ABSOS 'LUTES  COHR  0 

| 'flCOS’.*  ’.’ACOS’.  COHR  9 

2 ’OS’ACOSS'HS’flCOTS  * * . ’ ACOTS *0  * * *ACOT S ’M  S ’RODS  ’ S’ADEFCOHR  10 
f *. 'INKS 'fiOIA'.  'OS 'ROIVS  *106'.  'RERAS  'SES  ’RKOV' . *E  S'fiMULS  ’T'.CUMA  11 
3 ’ANTI  S 'LOO  S 'ARM  ’ , 'SE * . 'flRCC S 'OS  S 'ARCC * . 'OT  * . 'ARCS S ’ III  S 'RRCTC0I1A  12 
4*. ’ANS’ASCRS'LflRS'ftSIMS ' S’fiSIMS’DS’ASINS’HS ’ASU9S*  S’ACOHA  13 
BTAN  S ’ S ' RTRN  S '0  S ’RHIM  S ’A  S ’RTRR  S 'HS » , 'flVEC  * . ' flR«  » . * AVEC  * . *0  f COHR  14 
6R3S ’AVER » . 'AGE • . ’RZEU ’ . *0 ’ . ’OETfl S V S ’3ETR * . ’X  * , ’BtTfl ’ . ’2  * . ’DLCCCOHA  10 
7S'KTRnS’CHA!lS’G£S'C?UPS’  S 'CHI*  S’  S’CrtllS*  S ’CLOSS’ES ’COMA  16 
OCOS’.'  S’COSDS’  S’COSAS*  '.’COT*.*  *.,COTC'.*  ’.’COTU’.’  ’COCOHA  17 
SUN 4 . ’T ’ . 'OtTJ ’ . 'HE S'OEKOS’TES 'OEVN ’ , ’OR ’ , ’01 V ’ . * • . ’01 VI  * . *0E * .COHA  1 8 
A ’OUPL  ’ . 'ICAT ' . ’ERAS ' . ’E  • . 'EXCII  • , ’AMCC ' . 'EX? * . * ’ . 'EXPR  * , ’}I0  ’ » ’EXPOCOHA  1 9 
BS’NCRTS’FFPS’  S’PFXS*  S’FFIS’  S ’FLIPS’  s’sar.ps’  V COHA  20 
ORTA  NlV’OAHX’.  COHA  21 

C ' ’ . 'GfiJIE ' . ’ * . 'GENE  * • 'RATE ' • 'HIER  * « ’ARCH  ’ . ' INVC S 'RT  S *L INE  S 'ACOliA  22 
ORS'LOAS'  S’LOOES’  S’LOOTS’ERS’lUROS’IS’MflVS’lS’MCASmA  23 
eiS»MV'*’.’flIS'HtK,’S’a5nS’mXRS’X’’)S'MX’’S*XlS*l1IXXS’’C0lin  24 
F'lS’lUHlDS’  S’WWS’  S’KAXlS'P.UHS’HCtTS’lHES’HOIAS’OS’HSRCCWA  23 
MS  *86  S UilOE ’ . 'Ill ’ , ’AIN ’ . • S 'KINf  S ’HUH  ’ . 'HINV • , ’LMT • , ’HI IN’ , ’SflCOMA  • CO-' 
Hft’.’HHAT  ’ . ’VEC ’ , ’W10V *.  ’E  S *HKUL* . *T  • , ’HOVE  * . * • . 'MfiRI  • . ’SB *.  ’HSCACOHA  Z1 
I S 'LRAS ’RSU'JS  ’ S'ltIRA  S 'NS  S *HUl  7 ' . ' S’MILTS’IPLVS  COHA  *8 

I’nVECS’OIAOS  COHR  29 

0 ' I1VEC  ’ . ’HAT  S ’ICH*  S ’0  S ’KEOB  S’XPS  'OtlCE  S’R  S ’PfWP  S’ROOS  m'CMR  90 

NMS  ’Ui*.  * # ’PH09* . *UCT  S ’FHOH  S ’ores  ’RAIS  * . *E  s ’REAC  • . • S’HSSCS’TCOHA  91 
LS ’RUSS’  S ’SOU S’  VMHS  *•  *M  VOCAL  *»*MS ’SETS’  S ’SHOOS ’TECOHA  32 
WiS’SIHS’  ’.’BINDS*  S’SJMIIS*  S ‘OORTS’  ’.‘SORTS’  S ’SOBS’  ’COHA  33 
N, ’SUMS ’RACY S’SUII S’  S’TKIS’  S ’TWOS’  S’YWUtS'  S’TTPS’  ’COHA  94 

o.’ttxs*  s*ms*  s»vo«asT*,’voRH’.’Jts*vca,is’av  coha  95 

H0W1M  COHA  30 

HfilSCnUl  COHA  37 

'OffiKUoRRIlC/y  COHA  30 

NLLTIuNSJIE-NIIOUS*?  COHA  33 

CALL  C3MSM00)  COHA  40 

CALL  CROPLVf  * COnNIMOS  OUMCNTLV  IttPLCItlNICCJ  IN  OUNICPHA  41 


THIS  SUBROUTINE  CAUSES  R LIST  OF  AVAILABLE  COhrlfiHOS  TO 
OE  OISPUIYEQ  ON  THE  2260  SCREEN. 

ORTA  Nl/’AAOIJS*  S’AARVS’eCS’ABSS*  S’ABSOS ’LUTES 


Hfi»2E=141 
'IAOIUqRRIIC/T 
NlEriu»SJlk’..Ni«WS47 
CALL  CSMStlOO) 

CALL  CNOPLYf  * 
ITA0SS3.L10P01 
NUcHLCrT*! 

00  50  IsNLI.7 
BO  Kf 1 1-0 

irciLcrr.eo.oi  oo  to  7S 

60  00  70  lelAILEFt 
10  ««  i i«4 
75  NLCCA«? 

00  200  JsI.NSOW 
NtOC-iHLOCN 
00  ISO  Ial.7 
NWOftiStJ’ullaNRilCniKLeCll 

IcNilULSiadC-l  1 


COHA  42 
COMA  49 
C(MA  44 
COHA  46 
COHA  46 
COHA  47 
COHA  48 
COHR  49 
COHA  50 
COHR  St 
COlM  52 
COHA  89 
COHA  54 


It 


100  NL0C^L0C«2olt:00t(6«K(in  COHO  53 

tmiTecMimuioii  nwo/m  conn  os 

101  F0RHnT(7I2fH  tCJO ) conn  57 

CflU  FETCHtTOT.IICF. *10001  COHO  58 

cau  onDfLrtiexT.KCF.Aioooi  conn  59 

300  HLGCH=NLQCH+2  CUiin  CO 

IF(»LCF?.CO.O)  GO  TO  500  COiW  Ot 

NLCCcJILOCH  COHO  C2 

00  300  JsJ.HLCFT  COHO  03 

BHORKiztiisMiisstNUici  conn  c« 

N!IOnK(2aI-l)«i:n!lFofHUiC-lJ  COIIfl  C5 

300  M.GC=ilL0C»2at;!U3N3*Kl  111  COHfl  F3 

NLC=NLEFT»2  COHR  67 

mmfrHouti.ini i tfPiomtm.iai.RLZ)  conn  co 

cnu  FFTCiiCTtyT.t!Cf.*iooo»  conn  G9 

cnu  GnnpaucxT.ocF.iioooi  conn  vo 

600  cnu  crouvi*  m.aioooi  conn  7i 

cnu  iWLVt*  m.moooi  conn  n 

cnu  enmvr  *.i. *10001  conn  73 

cnu  onoPkvt*  m. *10001  coon  74 

caucsoflvi*  m, *10001  conn  75 

1000  RETURN  1 COM  76 

END  cam  77 


non  ono 


SUDROUTINE  DEFINE 

common  / Duoc,n/naoE:.n.KRRon7j.KnR».nfio.flR02.KtHcouo).r  * ind 
1 .NEHAOS!  19.5)  •USA"5’  .NSAVE.NFLAO 

COMMON  / flLCCKO  / .<Ct24D9). m68!C3).KJNO!39),fillOTAD(5U.NKHflX. 

I HRon.NCoi. .nargs.vmxyz t oi 
dimension  nnoac 1 ) 

CGUI  VALENCE!  flft  GO  ( 1 ) .90(24011) 

COH HON  / 0L0CKL7  NAME! 41 .LI .L2.J 

THIS  SUDROUTINE  IS  CALLED  IN  RESPONSE  TO  THE  COMMA'  J DEFINE. 

IFtNfinas.OT.l.P.ND.NflROS.LT.5  ) 60  70  10  * 

CALL  ERROR! 10) 

RETURN 

CIO  CALL  ERROR! 20) 

RETURN 

220  CALL  ERROR! 11) 

RETURN 

270  CALL  ERROR(O) 

RETURN 

9 CALL  ERROR! 3) 

RETURN 

10  KlsKlND! 1 ) 

JFCK1  .CO.)  .AND .Nflf(0S«E0.41  CO  TO  2)0 
L2cNAR06*Kl 

CHECK  AM)  CALCULATE  WORKSHEET  ENTRY  lOCATJtKl  INTO  L 

CALL  APREGBtNflnCS.L) 

IFtU  210.220.23 

£0  IF(L2»WE»4*flH0«NRllAJI»C(l»0)  00  TO  270 
IFtl.2-31  50.40,30 
SO  UkHOROS-I 

ifalflRCOtin 

ircKitnuLu.eQ.s.gR.o.u.i.ON.o.otaNtoN)  co  to  3 

Let* J~1 

40  inKJ.EQ.l)  00  TO  00 
Us* 

CO  TO  55 
CO  tlfel 

63  CALL  AflRESStU.J) 

IFtLl.LO.n  CO  TO  CO 
LUIARCSII) 

tr'tttt  ,EQ .1  .OR .LI  <Lf *1  .ON. LI  *CT *NKOH)  0(1  TO  0 

Jc4»LW 

!ttOS!l>uAC(J) 

«o  call  rum 

il'UIKLflO.CO.n  RETURN 
IFIL2-3I  CS.t  O, S3 
63  00  70  Llil.NRKfiN 
RC(U=RC!J) 

JaJ*l 
70  L-L*l 
NCIUAN 


OEFf 

1 

OEFI 

2 

OeFI 

3 

DCF! 

4 

OEFI 

S 

OEFI 

C 

OEFI 

7 

oeri 

6 

OEFI 

9 

OEFI 

20 

OEFI 

II 

OEFI 

12 

OEFI 

19 

OEFI 

U 

OEFI 

18 

CEF1 

10 

OEFI 

17 

OEFI 

18 

OEFI 

19 

OEFI 

20 

OEFI 

21 

OEFI 

22 

OEFI 

23 

OEFI 

24 

OEFI 

23 

OEFI 

20 

OEFI 

27 

OEFI 

28 

OEFI 

20 

OEFI 

30 

OEFI 

31 

OEFI 

32 

OEFI 

33 

OEFI 

34 

OEFI 

33 

OEFI 

30 

OEFI 

37 

OEFI 

39 

OEFI 

30 

OEFI 

40 

PCFI 

41 

OEFI 

42 

otn 

43 

OEFI 

4# 

OEFI 

48 

OEFI 

40 

OEFI 

47 

OEFI 

40 

OEFI 

49 

OEFI 

00 

OEFI 

e» 

OEFI 

62 

OEFI 

03 

0£FJ 

64 

I 


00  CMX  VECTOR IflHOSUl.U  OEFI  59  I 

RETURN  OEFI  50  I 

SO  RCfUsfiROSm  OEFI  57  I 

RETURN  • . OEFI  58  1 

0*3  , OEFI  53  1 


uuuu 
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JU8R0UTINE  MCPLYIh) 


THIS  SUBROUTINE  IS  USt'O  TO  PRODUCE  THE  INITIAL  DISPLAY  OISP  3 

ON  THE  2250  WHEN  EXECUTING  AM  OWNITflfl  PROGRAM.  OISP  4 

OISP  S 

CALL  DEIinSC  100 J OISP  6 

CALL  OROPLYI ’THI3  PROORW1  IS  OEQIONEO  TO  ENABLE  YOU  TO  USE  OHNlTflOOISP  7 
1 COMMANDS  EIITCREO  *.72, 41000)  OISP  0 

CALL  MOPLYI  'THROUGH  THE  TYPEWRITER  KEYBOARD  DIRECTLY  III  FRONT  OF  DISP  0 
I YOU.  TO  SIGNAL  *.72.41000)  DISP  10 

CALL  ORPPLYI ’COMPLETION  OF  YOUR  COMMAND.  FIRST  DEPRESS  THE  "ALT*  ROISP  II 

1EY.  AND  WHILE  *.72.0000)  OISP  12 

CALL  ORDPLVI ’HOLDING  IT  DOWN.  0EPRE03  THE  "S"  KEY. *.37.0000)  OISP  13 
CAL*.  ORDPLVC  * *.  1,0000)  DISP  14 

CALL  ORCPLrt  *AT  ANY  TII1E  YOU  HAY  LOOK  AT  THE  WORKSHEET  BY  PRECSIHCGISP  IS 
1 ANY  OF  TWELVE  '.72.410001  OISP  16 

CALL  ORDPLYt ’PROGRAMMED  FUNCTION  KEYS.  EACH  KEY  HILL  CAUSE  A 40  BOISP  17 
JY  G SECTION  OF  THE  ',72.41000)  DISP  10 

CALL  GRDPLYI  'WORKSHEET  TO  BE  01 SPLAYED.  KEYS  4 THROUGH  3 HILL  DICOISP  10 


I PLAY  THE  FIRGT  40  ’.72,41000) 


DISP  20 


CALL  CRCPLYI 'R0!-5  WITH  KEY  4 DISPLAYING  COLUMNS  I TMRDUOH  S.  KEY  BOISP  21 
1 DISPLAYING  COLUMNS *.72.41000)  DISP  22 

CALL  CROPLYI *0  THROUGH  ID.  ETC.  KEY8  10  THROUOH  IS  HILL  LIKEWISE  OISP  23 
IPISPLAY  THE  LAST  *.72.41000)  DISP  24 

CALL  ORDPLYIMO  ROUS.*,  0.41000)  DIGP  25 

CALL  ORUFLYI  ' *.1.41000)  OISP  28 

CALL  PRDPLYI  'AFTER  5EEIN0  A I'flRTlCULHR  SECTION  YOU  HAY  GEE  HNPTHER0IBP  27 
1 SECTION  PY  ’.72.41000)  DISP  2D 

CALL  OROPLYC  'PRESSING  ANOTHER  KEY  DR  YOU  NflY  ENTER  MORE  OHN  IT  AS  COO  I CP  20 


CALL  ORPrl.YI 


1,41000) 


CALL  OROPLYCnv  PRESSING  KEY  30  YOU  HILL  RETURN  TO  THIS  DISPLAY. 
1BY  PRESSING  KEY  31  72.4*000) 


IIIKANOO  THROUGH  THE  ’,72.41000)  PI6P  30 

CALL  ARDPLYt ’TYPEWRITER  KEYBOARD. ’.C0.41000)  0I6P  31 

CALL  OROFLYC*  1.41000)  OISP  32 

CALL  OROPLYt 'AY  PRESSING  KEY  30  YOU  HILL  RETURN  TO  THIS  DISPLAY.  * '■?  33 

1BY  PRESSING  KEY  31  ’.72.4*000)  1*1151"  34 

CALL  CP.Pf'I.Yf  'Yl’IJ  HILL  TERM  CRTS  THIS  PROGRAM.  DY  PRESSING  KEY  D YDISP  33 

1CU  MILL  I1E.  flat*  TP  *,72.41000)  OICP  30 

CALL  CRDFLYI  'SEE  A OJAPLilY  l»?  THE  OHNITHO  COMMANDS  CURRENTLY  AVRILOISP  37 

lA'ILE.  BY  PRESSING  * .7:?. 41000)  OISP  30 

CALL  OftPPLYC  'HEY  2 YOU  KILL  DEL'  A LIST  OF  THE  OMNI TAD  COMMANDO  FHICISP  30 

iCII  YOU  HAVE  ENTERED *.72, 41 000)  OISP  40 

CALL  GADFLY  I ' *.  1.410**0)  OISP  41 

CALL  AROPLYI * ).*1«U»)  OISP  42 

CALL  ORAPLYI * *.  1.41000)  OISP  43 

CALL  6TCPLYI*  *,  1.4100?))  OIGP  44 

CALL  GROPLVt'  1.41000)  OISP  48 

D RETURN  1 OISP  40 

Clio  OICP  47 


CALL  GROI’LYI*  *.  1. 41000) 
CALL  GitCPLYf  * \ ),41D0?1) 


CALL  GRDPLYl 
1000  RETURN  1 
END 


1.41000) 


201 


f 


SUBROUTINE  ECflINT 

COMMON  KEY.IOVLY.ITYPE 

ITYPEa2 

CALL  OPOST 

RETURN 

END 

SUBROUTINE  ERASE 

COMMON  / CLflCKn/NOOE.H. KAROO?  J ,KRRQ.ARG.ARO2.NEMCOIIS).IIR0END 
i .nehcdsi  is  .0 1 .KSflve  .(tanvf  ,,'IFlro 

COMMON  / BLOCKO  / rtC{24:i3].IAaOS{03).KINDt33).RaOTAB{51).NRHAX. 
I NROII  .NCOL . NASOS . VA.NY  Z 1 5 ) 

C 

C THIS  SUBROUTINE  IS  CAU.EO  IN  RESPONSE  TO  THE  COMMAND  ERASE. 

C 

CALL  CUKCOU  I 1 

IP1I .EQ.O.CR.NflROS.Ea.O)  00  TO  30 
CALI  ERR0R13) 

20  RETURN 
SO  CRU.  PL OK 

ipfNFLno.ea.n  return 

IF(  NAROS  .EQ.  0 I 00  TO  SO 

iFiNRhnx.ea.o)  oo  to  ?.o 

00  40  I a 1.  HAROS 
40  CALL  VECTOR!  0..  IflNOSl  I ) } 

00  TO  20 

c 

C CLEAR  ALL  OP  OIHCNSIONEO  WORKSHEET. 

C 

60  NRHAX  a (IRON  n HCOL 
CALL  VECTOR!  0..  I ) 

HRHAN  a 0 
00  TO  20 
END 


€031  1 

EtSBI  2 
E0B1  3 
EOOI  4 
EOBI  S 
EOBI  6 
ERAS  I 
ERAS  2 
ERAS  3 
ERAS  4 
ERRS  S 
ERRS  6 
ERAS  7 
ERAS  8 
ERAS  8 
ERAS  10 
ERAS  H 
ERAS  12 
ERAS  13 
ERAS  14 
ERAS  16 
ERRS  16 
ERAS  17 
ERAS  10 
ERRO  18 
ERRS  20 
ERAS  21 
2RH3  ZZ 
ERAS  23 
ERAS  24 
ERRS  25 
ERRS  20 
ERAS  27 
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I 


7 


$ 

'I 


j 

1 

"5 

-.4 

4 


$ 

■j 


1 


■4 
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SUBROUTINE  ErlROR  C 1 1 

conr.on  / OLOCKn/NO0e.H.KflROn7).KfiaO,ARO.AftO2,H£HCOU9).KROENa 
1 .NEMCOSl  19  .5 ) .KSAVE  .NSAVE  .NFLflO 
COflH3N/KPLOT/HfRf*i1E  .KKNO  .SIZE  .SPACE 
COlttlOH  KEY.IOVU.ITYPI; 

THIS  6U0R01JTIIIS  IS  USED  TO  OESPLAY  ERROR  flESSflOES, 

1 IS  USED  TO  INDICATE  WHICH  HESSA0E  IS  TO  8E  CISPLATEO. 

iroiPUAo.Eo.n  return 
Jstl-IOOIFSO 

iFu.en.oj  oo  to  200 

CAUL  GROFLYt ' M.OOlO) 


ERRO  1 
EURO  2 
EURO  3 
ERRO  4 
EURO  S 
ERRO  0 
ERKO  7 
EURO  8 
ERRO  9 
ERKO  10 
ERRO  II 
ERrtO  12 
EURO  13 


1020  CALL  G0HSPC6) 

CALL  CROPLYt NEMCO .76 .41000 1 
CALL  CRDPLYI • l.ftlOQO) 
IF(J.OT.O)  00  TO  400 
NrLAO  a 1 


crmo 

ERRS 

ERRO 

ERRO 

ErtRO 


00  TO  (1.2. 3. 4. 5.6*7. 0. 9. 10. 11. 12.13. 14. 15.10. 17. 10. 19.20.21.22.  ERRO 
1 23.24.25.20.27.23.29,30).  1 ERRO 

1 CALL  OROPLYt ‘HAKE  HOT  FOUND  IN  LIBRARY'. 25.41000)  ERRO 

2 CONTINUE  ERRO 

00  TO  SOOO  • ERRO 

9 CALL  ORCPLYl 'ILLEOAL  ANCUNENT  ON  CARO*. 24. 41000)  ERRO 

4 CONTINUE  ERRO 

6 CONTINUE  ERRO 

0 CONTINUE  ERRO 

00  TO  5000  ERRO 

7 CALL  OROPLY( ‘ILLEOAL  OrATEHENT'. 17.41000)  ERRO 

00  TO  5000  ERRO 

0 CALL  OR0PLY( ‘CONSTANT  NOT  Itl  TAOLE', 21.41000)  ERRO 

00  TO  5000  . ERRO 

0 CALL  OftOPLYt 'NBHAX  a O’.  9.41000)  ERRO 

00  TO  5000  ERRO 

10  CALL  OSCPLYt 'ILLEOAL  HUNGER  OF  RSOUHEHTS * ,27*41000)  ERRO 

GO  TO  5000  ERRO 

)I  CALL  OROPLYt  ‘COLUMN  HUNGER  TOO  BIO  ON  LESS  TUAN  1 *.37.4)000)  ERRO 

12  CONTINUE  ERRO 

13  CONTINUE  ERKO 

14  CONTINUE  ERRO 

15  CONTINUE  • EARO 

00  TO  5000  ERRO 

10  CALL  OROPLYt ‘ILLEOAL  SI2C  ROM  NUMBER  *,24.(1000)  ERRO 

00  TO  5001)  ERRO 

17  CALL  OROPLYl 'OCFIHEO  MATRIX  OVERFLOW  WORKSHEET' .34 .41000)  ERRO 

00  TO  5C00  ERRO 

10  CALL  OROPLYt ‘INTEGER  ARGUMENT  LESS  THAN  -0101 '.32. (1000)  ERKO 

19  CONTINUE  ERRO 

00  TO  0000  ERRO 

50  CALL  OROPLYt* IMPROPER  TYPE  OF  AAGtHlEHT'. 28.41000?  ERRO 

CO  TO  0000  ERRO 

51  CALL  OROPLYt ’ASTERISK  6TNIN0  JHPLYIHO  THROUGH  INCORRECT  * .42 .(1000 ) ERRO 

22  CONTINUE  ERRO 

CO  TO  SOSO  , ERKO 


14 

15 
10 
17 
10 

19 

20 
21 
22 
20 
24 
28 
20 
27 
29 

29 

30 

31 

32 

33 

34 

35 
30 
37 
30 

39 

40 

41 

42 

43 

44 

45 
40 
47 
40 

49 

50 
61 
S* 
03 
84 


6? 
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23  CALL  OR0PLYC 'MATRIX  16  TOO  LARGE  10  INVERT  USING  THIS  INTERACTIVE  ERRO  55 


lOEVICE'.SO.UOOOl  ER.10  S3 

3000  CAUL  CKOPLY(  ’PLEASE  G'JUMJT  AS  A BATCH  JOS'. 28. 41000)  ERRO  57 

GO  TO  ICOIJ  ERRO  SO 

24  CALL  CROPLYT 'PRODUCT  OP  MATRIX  MULTIPLICATION  IS  TOO  LARGE  FOR  INTERIM  SO 

IERACTIVE  MOOE', 00 .41000)  ERRO  60 

00  TO  0000  ERRO  61 

23  CONTINUE  ERRO  62 

20  CONTINUE  ERRO  83 


27  CONTINUE 


ERRO  64 


28  CONTINUE  ERRO  05 

29  CONTINUE  ERRO  60 


30  CONTINUE 


ERRO  67 


6000  CALL  GROPLYI 'PLEASE  REENTER  MS, 41000) 

1000  RETURN 

1010  CALL  QERflSt 100) 

00  TO  1020 
C 

C ARITHMETIC  TR0U3LE3 

C 

200  NFLA0.-1 

CALL  AERRCI-IOO) 

KSAVE=KSAVE*1 
00  9001  IJTtl  ,19 

8001  HEMCOSI III •XSAVE)bNEHCO( ITT) 

IFlRSfiVE.LT .5)  OO  TO  230 
IF( I0VLV.OT.40)  OO  TO  9000 
8004  WRITE ( '-'GAVE ' 1 0VI.V ) NEMCDS 
KSAVEaO 
250  RETURN 
9003  CALL  PRORAlltl) 

in  KEY  .t'O.  Oil  RETURN 
IOVLV  s 1 
00  TO  3004 

c 

C INFORMATIVE  DIAGNOSTIC 
C 

4 00  IIaI-200 

00  TO  1401.  402.  403.  404.  40S.  406.  407.  408.  400.  410.  411. 
1 413.  414.  410  ).  IT 

401  CALL  OROPLY)  'TOO  MUCH  PATA'.)3. 41000) 

402  CONTINUE 

403  CONTINUE 

404  CONTINUE 

405  CONTINUE 
408  CONTINUE 
407  CONTINUE 
400  CONTINUE 
400  CONTINUE 
410  CONTINUE 

00  TO  4000 
..  411  CONTINUE 
412  CONTINUE 
413  CONTINUE 


ERRO  CO 
ERRO  69 
ERRO  10 
ERRO  75 
ERRO  72 
ERRO  73 
ERRO  74 
ERRO  76 
ERRO  70 
ERRO  17 
ERRO  70 
ERRO  79 
ERRO  80 
ERRO  01 
ERRO  02 
ERRO  63 
ERRO  04 
ERRO  05 
ERRO  06 
ERRO  67 
ERRO  80 
ERRO  08 
ERRO  00 
ERRO  91 
ERRO  02 
412. ERRO  93 
ERRO  94 
ERRO  95 
ERRO  96 
ERRO  07 
ERRO  90 
ERRO  89 
ERRO  100 
ERRO  201 
ERRO  102 
ERRO  103 
ERRO  104 
ERRO  103 
ERRO  106 
ERRO  107 
ERRO  100 


014  CONTINUE 
41 S CONTINUE 

4000  COLL  OROPLYC  'PRE6S  KEY  1 FOR  CTflNOflRO  FliCUP  OR  KEY  2 TO 
ICUTIOW.’. 60.0000) 

4800  COLL  Glia  IT 

IPCITYPE.NE.il  GO  TO  4500 
IFtKEY.EQ.l ) 03  TO  1000 
IfCKEY.Efl.2.PR.KEY.Ea.3n  00  TO  4550 
IFCKEY.ME.Z2)  00  TO  4500 

CALL  GCOPLT  f 0 .MFROIIE  .KKHO  * SIZE . SPACE  • INTE9 • 1RC0DE ) 
CALL  GCOPLT  Cl.IOUM 
CALL  OCflLII 
00  TO  4500 
4580  NFLRG-1 
00  TO  1000 
END 


ERRO  109 
I’RKO  IIP 
CANCEL  CNECfIRO  111 
ERRO  112 
ERRO  119 
ERRO  114 
ERRO  115 
ERRO  1)6 
ERRO  117 
ERRO  1)0 
ERRO  119 
ERRO  120 
ERRO  121 
ERRO  122 
ERRO  123 
ERRO  124 


1 


non 
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SUBROUTINE  EXCHHG 

COMMON  / flLOCKfl/NaDE.N.KflROt77).KflRG.ARG.AR02,HEHCOU9)«KROeNO 
1 .HEHCOSI 19  ,S ) .ilSAVE  .NSAVE.NFLflO 

COMMON  / B10CK0  / RC(2«0),inRGS(e9J.HIHO(39),RROTflO(Sl J.NRW1X. 
1 URDU  »NC0L  #HRRCS . VUX Y2 ( 5 ) 

THIS  SUBROUTINE  IS  CflLLEO  IN  RCSPONSE  TO  THE  COMMAND  EXCHANGE. 

IF<NflR08.NE.{HflRG3/2}s2.OR.NflRGS.EQ.Ol  09  TO  OIQ 

COLL  CHHCOLIIJ 

IFtl.EQ.J)  mi  TO  003 

IFINlU1flX.LT.lJ  00  TO  ODD 

CALL  PLOW 

IF(KFLflO.EQ.l)  RETURN 

oo  30  isi.;inr<0fi,2 
DO  30  Nal.NRlinX 
JJaIflRGSm*N-l 
NKainnosu»n*N-i 

WORK=RC(JJ! 

RCCJJJs  RC'KR) 

RC«KK)=HOHK 
30  CONTINUE 
00  TO  099 
803  CALL  ERROR  (3) 

GO  TO  090 

910  CALL  ERROR  HO) 

00  TO  909 
909  CALL  ERROR  13 J 
933  RETURN 
END 


EXCH  1 
EXCH  2 
EXCH  9 
EXCH  4 
EXCH  S 
EXCH  0 
EXCH  7 
EXCH  0 
EXCH  S 
EXCH  10 
EXCH  11 
EXCH  12 
EXCH  13 
EXCH  14 
EXCH  IS 
EXCH  18 
EXCH  17 
EXCH  10 
EXCH  19 
EXCH  20 
EXCH  21 
EXCH  22 
EXCH  23 
EXCH  24 
EXCH  25 
EXCH  26 
EXCH  27 
EXCH  20 
EXCH  29 
EXCH  30 
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SUBROUTINE  EXPAHOt  0.  WHcRE  ) EXPfl 

COMMON  / QLCCKO  J RCt243a).IflRGStC9).KINDl39),flRGTAa(Sl).NP.MflX,  EXPA 
S NROJl^NCOL  .NARG-0  iVUXYI ! 51  EXPfl 

COKKOM/OLOCKE/HaHEt  4 > .U .L2.ISRFL0  EXPfl 

0IHEN5I0N  finest  39)  EXPfl 

EOUI  VALENCE  tflftCSt  J J.RC(  24011)  EXrfl 

PIHENSION  WHERE ( 1 ) EXPO 

C EXPO 

C THIS  6UOROUTINE  TIMES  THE  INFORMATION  STOREO  IH  THE  FIRST  J EXPO 

C POSITIONS  OF  THE  ARRAY  WHERE  AN!)  CONVERTS  THIS  INFORMATION  INTO  0 EXPO 

C FORM  WHICH  CON  DC  EASILY  USED  0/  THE  0HNITA3  COMMANDS.  EXPO 

II  e 0 . EXPfl 

I a 0 EXPfl 

JJJ  s J EXPfl 

10  II  a II  ♦ I EXPfl 

15  I a I ♦ 1 EXPfl 

ire  I .0£«  JJJ  i 00  TO  45  EXPO 

Ts  WHERE!  I 1 EXPfl 

IPt  T 1 40.  30,  20  EXPO 

20  KINDI  II  ) a 0 EXPO 

IflROSt  II  ) a T - 0102.  EXPfl 

00  TO  10  EXPfl 

30  KINOt  111=1  EXPO 

1 a 7 ♦ 1 EXPfl 

ARGSC  II  5 a WHEREt  I I EXPfl 

CO  TO  10  EXPfl 

40  1F(  T .Efl.  -I.  1 00  TO  100  EXPfl 

CALL  XPNOt  WHEREt  I 1.  X .flRGSt  II  ) . KHD  ) EXPfi 

ire  H .GE,  0 ) 00  TO  SO  EXPfl 

♦1  K * * X EXPfl 

42  CULL  EftRORt  K ) EXPO 

48  RETURN  EXPfl 

60  KINOt  II  ) r KND  EXPfl 

arc  UNO  ,EQ.  0 ) IfiRGot  II  | a flROSl  II  I • EXPfl 

I a I ♦ K EXPfl 

CO  TO  10  EXPfl 

C EXPfl 

C EXPAND  PROH  PREVIOUS  INTECEK  fflOUNENT  TO  FOLLOWING.  EXPfl 

C EXPfl 

too  I a I ♦ 1 EXPfl 

C PICK  UP  NEXT  flHO  EXPfl 

1U  a ItHEREt  I ) EXPfl 

m KINOt  II»J  1 .NE.  0 .ON.  I .GE.  J ) 00  TO  200  EXPfl 

IFC  1U  ) 100.  200.  105  EXPfl 

109  IU  alU  - 0102  EXPO 

100  Ka  IU  - IRROSt  II-l  ) EXPfl 

NflfiGS  a NARCS  * IfliUH  K ) - X EXPfl 

IF  t K ) 110,15,120  EXPO 

ISO  INC  a »I  EXPfl 

K s ~K  EXPfl 

00  TO  140  EXPfl 

120  INC  a 1 EXPfl 

J'  140  00  160  IT  o I,  K EXPfl 

KINOt  II  1 B 0 EXPfl 


1 

2 

9 

4 

8 

6 

7 

8 
fl 

10 

a 

12 

13 

14 

15 

16 
17 
10 

19 

20 
21 
22 

23 

24 

25 

26 
27 
20 

29 

30 

31 

52 

33 

34 

35 

36 

37 
30 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 
40 

50 

51 
62 

53 
S« 


IflROSI  II  3 * IRROSl  XZ-S  3 ♦ INC 
ISO  II  a II  ♦ 1 
GO  TO  IS 

160  CALL  XPflOt  WHERE ( I J . K . RRGSt  II  1 • KUO  I 
lTt  !t  .UT.  0 3 00  TO  41 
I s I * K 

in  UNO  .EO.  0 ) 00  TO  170 
K s 20 
00  TO  42 

170  IU  s flRGSt  II  3 
00  TO  100 
200  K=2J 
00  TO  42 
END 


EXPfl  65 
EXPfl  66 
EXPO  SO 
EXPO  50 
EXPfl  59 
EXPO  GO 
EXPO  01 
EXPfl  02 
EXPfl  03 
EXPfl  64 
EXPO  60 
EXPfl  66 
EXPfl  67 
EXPfl  08 


SUBROUTINE  EXPCON 

COKHON  / BLOCIUVHOlJE  .M  .RRRDl 77 1 .KflR0.flRG.flRG2 .NEWCOt  19 ) .KROENO 
1 .NEWCOSt 10. S 1 .KSflVE .NSflVE .NFLflO 

COMMON  / 0LOGKD  / RCt24331.IflRGSlG9).KJNO(3S>,flROrfl0(5l).NRi1flX. 
1.  HROM.NCOL.MWGO.VIWmi 
CCNMGN/SLOCKE/NfiHEt  4 1 .LI  .12 « ISRFLO 

cmiMLWsc»nT/fu  ooi 

CMM  THIS  6U8R0UTIHC  IS  CALLED  IN  RESPONSE  TO  THE  CORHfWOS 
C»w*  MVECDinC.  AVECDinO,  MVCCttAT.  RVECRRR.  HHATVEC  MO  RftRRVEC. 
irtHRR03.LT. 5. OR. f'HROS. Or. 6)  00  TO  10 
irtL2.0c.51  00  TO  300 
100  OsHRSGS 

COLL  CKIHO(J) 
irtJ.HE.Ol  GO  TO  a 

Jsl. 

CALL  tlTXCHXtJl 

irtj-n  102.3.17 

102.  CALL  flDRESSCtlflRGS.lLL) 
irtlLL.LE.O)  GO  TO  11 
IHslAROStll 
ILCslLL 
ILslNROSO) 

KMXslAKOSt  4 ) 

HMX=IRRGSl31 

1FIL2.0T .2)  iLcHIHOt ILMlARQ5t4)*80) 
iriNRK0S.NE.61  CO  TO  103 
lLC=ILC+IfiRCS{G)-l 
ILctliHOI  IL.81"IARGS(51  I 
109  IXXsILC*IL“l 

Iv’nXX.GT.ILLtNnOH-ll  00  TO  3 
CALL  PL3K 

irtHrLflB.Eo.n  return 
IHL2.CE. 51  01}  TO  310 
If(L2.0E.3)  00  TO  220 
Cuu  VEC  DfflO 
120  00  12G  ICsl.JL 
miCl-RCUHl 
125  lHslN«l«NROt< 

IHcl 

oo  130  isiLc.m 
RCmsfUJItl 
130  IMaltM 
RETURN 
Cm**  VECTHflT 
220  JCz) 

IWIbIR 

00  240  JjI.NMX 

ir.sitm 

00  230  Inl.KHX 

iruc.0f.iu  00  TO  245  " 

micisKcuni 

IHt  "WHAM 
230  £Cb«C+i 

240  IftflaJNiltl  . 


EXPO 

1 

EXPC 

2 

EXPC 

3 

EXPC 

4 

EXPC 

9 

EXPC 

0 

EXPC 

7 

EXPC 

8 

EXPC 

0 

EXPC 

10 

EXPC 

11 

EXPC 

12 

8 EXPC 

13 

EXPC 

14 

EXPC 

18 

EXPC 

10 

EXPC 

17 

EXPC 

18 

EXPC 

19 

EXPC 

20 

EXPC 

21 

EXPC 

22 

EXPC 

23 

EXPC 

24 

EXPC 

28 

EXPC 

26 

EXPC 

27 

EXPC 

28 

EXPC 

23 

EXPC 

30 

EXPC 

31 

EXPC 

3? 

EXPC 

93 

EXPC 

34 

EXPC 

38 

EXPC 

3G 

EXPC 

37 

Z\',X 

39 

EXPC 

39 

EXPC 

40 

EXPC 

41 

EXPC 

42 

EXPC 

43 

EXPC 

44 

EXPC 

48 

EXPC 

46 

EXPC 

47 

EXPC 

40 

EXPC 

40 

EXPC 

80 

EXPC 

81 

EXPC 

32 

EXPC 

69 

EXPO 

34 
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v- 


t.’- 

K‘ 


t 


f 


t: 


248  00  250  Jal.lt, 
HCULGJanm 
250  1LC=1LC*1 
RETURN 
Cm**  W1TVEC 
800  ILslRRQfiO) 

IC=2 

IFfNRRCS.NE.6)  00  TO  302 
JC~3 

JLL=inRG3(2) 

302  DO  SOU  lei. 4 

lOKosmsiflaosao 
305  JCsICH 

IflROSt  5 J=IU 
lflHGS(OJ=IU 
00  TO  100 
3SO  00  320  J=1.IU 
n(i)=RCuuo 
320  1LCsILC*1 
ILC  = 1 

DO  940  lel.NRX 

incsitt 

09  930  J«1  .KNX 
ncuKOsndic) 

lHC=IllCt»ROM 
330  acsac^l 
340  im=.jh»i 
RETURN 

3 CflU  ERROR! 31 
RETURN 

10  CflU  ERROR (101 
RETURN 

17  CRU.  ERROR! 17) 

RETURN 

11  CALL  ERROR! 11) 

RETURN 

END 


type 

55 

type 

58 

EXPO 

57 

EXPC 

50 

EXPO 

SO 

EXPC 

60 

EXPO 

61 

EXPC 

62 

EXPC 

63 

EXPC 

64 

EXPC 

65 

EXPC 

65 

EXPC 

07 

EXPC 

60 

EXPC 

69 

EXPC 

70 

EXPC 

71 

EXPC 

72 

EXPC 

73 

EXPC 

74 

EXPC 

75 

EXPC 

76 

EXPC 

77 

EXPC 

78 

EXPC 

79 

EXPC 

60 

EXPC 

61 

EXPC 

62 

EXPC 

63 

EXPC 

64 

EXPC 

03 

EXPC 

66 

EXPC 

07 

EXPC 

69 

EXPC 

09 

EXPC 

90 

EXPC 

91 

in 


ono  ono  nnnnn 
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SUBROUTINE  E.XTREfl 

CflWIOH  / UI.CCKn/HOOE.tt.Kf)RO(77)«KjlRS<ARS<nRG2.NEUCO(  1S1.KR0EN0 
I .RCHC081  in. 5)  .KSnvt  .{ISflVE  .NR.flO 

CCIUliJN  / OLOCKO  / Ra2433),inRCS(<m«KIHD(39).flNGTfl8(Sl l.NRHJUU 
a nnou.NCOL.HflRos.vHXYztsi 
COUnCN/BLCCKC/NRHEl  4 1 .LI  .L2.16RFL0 

Tiff 6 SUBROUTINE  IS  MLLE0  IN  RESPONSE  TO  THE  COfflMNOS  HflX. 

niUinun.  tun  <wo  hinihuh.  l2=<  cor  si  for  nnx  (or  max  mum 

Lt=0  (OR  71  FOR  tllli  (OR  (UfJimiH) 

in  narcs  .st.  o .(wo.  noo(  nrrgs.  * i .ca.  o i so  to  30 

1-10 

10  CfllC  ERROR!  1 I 
CO  RETURN 
90  CALL  CHXCOU  1 1 

IF!  1 .CO.  0 ) 00  TO  40 
1*9 

00  TO  10 

40  IFUIRMUt.GT.O)  00  TO  SO 
1*9 

CO  TO  10 
$0  CAU  PLOK 

inNFLno.ca.n  return 

4*0 

irtNRKRx.Efi.n  oo  to  no 

J * IRR061  1 1 
K b 4 * I 
UX«  HRHflX  - C 

irt  it  .or.  s i oo  to  on 

riNO  wwihwi 

00  10  I * N*  L 

IF l RC(  4 1 .LT.  RC(  I 1 1 4 a ! 

10  CONTINUE 
CO  TO  100 

riNO  niNiHun 

60  00  00  I 8 K.  I 

irt  flcr  4 1 .OT.  RC(  I 1 1 4 a I 
SO  CONTINUE 
100  4 a 4 - MSGS!  1 ) 

no  oo  no  t * i.  drags,  t 

K * IflilSSI  11*4 

120  CfllC  VECTOR!  RC(  K 1.  1RR0S!  1*1)1 
CO  TO  20 
ENO 


EXTR  1 
EXTR  2 
EXTR  9 
EXTR  4 
EXTR  8 
EXTR  6 
EXTR  7 
EXTR  0 
EXTR  9 
EXTR  10 
EXTR  11 
EXTR  12 
EXTR  13 
EXTR  14 
EXTR  13 
EXTR  1C 
EXTR  17 
EXTR  1G 
EXTR  19 
EXTR  20 
EXTR  21 
EXTR  22 
EXTR  23 
EXTR  24 
EXTR  25 
EXTR  20 
EXTR  27 
EXTR  20 
EXTR  20 
EXTR  30 
EXTR  31 
EXTR  32 
EXTR  33 
EXT.'.  34 
EXTR  33 
EXTR  3G 
EXTR  37 
EXTR  83 
EXTR  39 
EXTR  40 
EXTR  41 
EXTR  42 
EXTR  43 
EXTR  44 
EXTR  43 
EXTR  45 
EXTR  47 
EXTR  40 
EXTR  49 


noon 


C 


FUNCTION  FCOGt  X ) FC OS  I 

THIS  FUNCTION  SUBPROGRAM  CALCULATES  THE  COSINE  OF  THE  ARGUMENT  X.  rcOS  Z 

iri  float  X > .OT.  «8E8  1 CO  TO  2 FCOS  $ 

FCOS  s cost  X ) FCOS  4 

S RETURN  FCOS  5 

2 CALL  ERR0RU04)  FCOS  0 

FCOS  = 0.  FCOS  7 

CO  TO  J FCOS  0 

END  FCOS  8 

FUNCTION  FEXPt  X 1 FEXP  1 

THIS  FUNCTION  GUSHOUTIfiE  CALCULATES  EXP(X).  FEXP  Z 

IFtnaStXI.OT. 174.1  CO  TO  2 FEXP  3 

TEXP  c EXPt  X l FEXP  4 

1 RETURN  FEXP  3 

£ CALL  ERROR!  102  1 FEXP  6 

FEXP  3 0.  rexp  7 

GO  TO  I FEXP  0 

END  FEXP  9 

FUNCTION  FEXP2C  0.  E 1 FEXP  1 

FEXP  Z 

THIS  FUNCTION  GUflPROORAH  CALCULATES  B»»C  IF  SUCH  AN  OPERATION  FEXP  3 

OOESN  *T  PRODUCE  OVERFLOW  OR  UNOERFI.OM.  FEXP  4 

FEXP  3 


IE.  k £ FEXP  6 

IFt  C .CQ,  rLOOTl  IE  1 1 00  TO  2 FEXP  7 

ino.cr.o.i  oo  to  a fexp  a 

CALL  ERROR! 101)  rEXP  8 

FCXP2«0.  FEXP  10 

RETURN  FEXP  II 

a rexps*  a rapt  e u moot  oil  fcxp  n 

I RETURN  rexp  13 

£ FEXP2  3 0 Mu  IE  FEXP  14 

00  TO  t FEXP  ID 

END  ..  »•  FEXP  16 


uuu 


fiUflRO'JTINE  FLIP 

COMMON  / niCCKn/MODE  .H.KAK0t77  J .KARO,  AR0,fin02 .NSNCOt  13)  .KRDENO 
1 .NEUCOSt  13.5)  .KSAVE .NSAVE  .NFLAO 

COMMON  / ai.OCXO  / KC(243J}«IAKS3(Q9).RlM0t33)*nnCTA3(Sn«NKMAX. 
t NRUM.NC0L.HflRGS.VHXY*(3) 

ThIS  SUBROUTINE  IS  CALLEO  IN  RESPONSE  TO  INC  COMMAND  FLIP. 

IFt  NflRCS  .OT.  0 ,ANO.  MODI  NAROS.  ( ) .Ed.  C ) 00  TO  CO 
I a 10 

SO  CAUL  ERROR!  1 1 
IS  RETURN 

20  CALL  CHKCOLt  1 J 

IFt  I .EC.  0 ) 00  TO  2ii 
1=3 

00  TO  10 

25  IKCIKKAX.CE.l)  00  TO  30 
1=3 

00  TO  10 
30  CALL  PLOX 

lPtNFLAO.CQ.l. CR.tJRHAX.EQ.il  RETURN 
KK  a flRHfW  - I 
It  a KK  / 2 

00  00  I a 1.  NARCO.  2 
M ■«  I ARGO  t I 1 
N a lAKOGt  1*1  ) 

MM  a II  ♦ Hit 
HN  a II  « KK 
NHH  a N ♦ H 
00  SO  J a H,  HMH 
A a RCt  U 1 
RCt  N.  1 a RCt  Ml  I 
RCt  NM  1 a A 
N a N ♦ I 
Hfl  » HH  - 1 
00  HN  s HU  - | 

CO  CONTINUE 
CO  TO  15 

m 


FLIP  1 
FUP  2 
FUP  3 
FLIP  4 
FLIP  5 
FLIP  0 
FLIP  7 
FUP  8 
FLIP  A 
FLIP  10 
FLIP  11 
FLIP  12. 
FLIP  13 
FLIP  14 
FLIP  15 
FLIP  18 
FLIP  17 
FUP  10 
FLIP  l f» 
FUP  20 
FLIP  21 
FUP  22 
FLIP  23 
FLIP  24 
FUP  2a 
FLIP  20 
FLIP  27 
FLIP  20 
FLIP  23 
FLIP  30 
FLIP  91 
FUP  32 
FLIP  39 
fUP  34 
FUP  33 
FLIP  30 
FUP  37 
FUP  90 
FLIP  39 


FUNCTION  FLCOt  X 1 
C 

C Title  FUNCTION  SU3PR03RAN  CHECKS  X flJlO  IF  IT  18  POSITIVE 
C CALCliUTEo  THE  NATURAL  LOG  OP  X. 

C 

ire  X .GT.  0.  1 00  TO  1 
CALL  ERROR!  101  ) 

FLOO  SO. 

GO  TO  2 

1 FLOG  a ALOOl  XI 
£ RETURN 
END  • 

FUNCTION  FSINt  X ) 

C 

C THIS  FUNCTION  SU8PR0ORAH  CALCULATES  THE  SINE  OF  X. 

C 

IF(  flOSt  X ) .or.  .GEO  I 00  TO  2 
FSIM  = SINt  X 1 
l RETURN 
2 CRU  ERROR!  104) 

FSIN  a 0. 

00  TO  1 
END 

FUNCTION  FSQRTl  X ) 

C 

C THIS  FUNCTION  GU3PR03RAR  CHECKS  X fiNO  IF  IT  IS  POSITIVE 
C CALCULATES  THE  SQUARE  ROOT  OF  X. 

C 

iFt  X .LT.  0.  ) 00  TO  2 
fsort  = sntm  x j 

1 RETURN 

2 CALL  ERROR!  101  1 
FSQitT  a 0. 

OO  TO  1 
EHO 


FLOG  1 
FLOO  2 
FLOG  0 
.FLOO  4 
FLOO  8 
FLOO  8 
FLOO  T 
FLOO  8 
FLOO  e 
FLOO  10 
FLOO  11 
FLOO  12 
FSIN  1 

fsin  2 

FSIN  3 
FSIN  4 
FSIN  5 
FSIH  0 
FSIN  7 
FSIH  8 
FSIH  9 
FSIN  10 
FSIN  11 
FSQR  l 
FSQR  2 
FSQR  3 
FSQR  4 
FSQR  8 
FSQR  6 
F60R  7 
FSQR  8 
FSQR  9 
FSQR  10 
FSQR  11 
fSQR  12 


oftonno no 
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SUBROUTINE  FUHCT 

ruNC 

1 

COHHON  / HLOCKA/nflOE.lt  .KAROt  77 ) .KflRO.flRG.fiROZ.NEHCOt  IS > ,KR0END 

FUNC 

t 

1 .NEFCDSt  19.S ) .KSAVE..Vr:tt7S,NFLfl» 

FUNC 

3 

COKHON  / 6L0CK0  / RC(2^3)  ,IflRC3(03),KIN0t33) .flXCrflBCSl) .NRKflX, 

me 

4 

l NR0N.NCOL,Nfl;<C3.VHXYZtS) 

rune 

S 

COKKON/aiOCKE/NfttlEU i ,1.1 .L2.ISRFL0 

FUNS 

0 

COHUON/CO.MSTS/Pl  .E.HM.FPI  .UEO.RAO 

FUNC 

7 

RER'.na  XO 

FUNC 

e 

DIMENSION  11 ( 2 } 

FUNC 

0 

equivalence  < u,  in  1 i j.  i 12,  lit  2 ) 1 

FUHC 

10 

DIMENSION  flRCOU) 

FUNC 

n 

fc'QUI  VALENCE;  ARCS  t 1 ).RCt2401 ) J 

FUHC 

12 

FUNC 

13 

THIS  SUSnOUri.'iE  IS  CALLED  FOR  THE  FOLLOHIHO  COMMANDS i SIN.  cos. 

FUHC 

14 

TfiM.  cot.  fiR:si!i.  nsi/t.  nrtccoc . acos.  arctah.  atom.  arccot.  rcot. 

FUNC 

15 

sino.  COSO,  rntic.  corn,  hsino.  hcosd.  atand.  acoto.  ass. 

FUNC 

10 

nasoujTE.  exp.  exponent,  loo.  loos.  sort,  negcxp.  ludten. 

FUHC 

17 

ANTI LOG.  SINK,  COSH.  TflfJH.  COTH.  AS1NH*  RC06H.  HTflNH.  SCOTH  AND 

FUHC 

10 

DEVNOft. 

FUNC 

10 

FUNC 

20 

xrc  NARCO  .Efl.  2 .OR.  KAROS  ,E0.  3 ) 00  TO  10 

FUNC 

21 

CALL  £KROR { 10  j 

FUNC 

22 

GO  to  m 

FUNC 

23 

10 

CALL  AORSOSt  MARCS.  11  1 

FUNC 

24 

IFt  IL  5 20.  30.  40 

FUNC 

25 

20 

CALL  ERROR ( 20  ) 

FUHC 

20 

CO  TO  200 

FUNC 

27 

30 

CALL  ERRORt  il  ) 

FUHC 

20 

00  TO  200 

FUNC 

20 

40 

IL*  = IL  ♦ Nftt.AX  - 1 

FUHC 

30 

HAROS  = HAROS  - 1 

FUNC 

31 

00  GO  I s 1 . HANGS 

FUHC 

32 

CALL  ADfieset  1.  IK  I ) ) 

FUNC 

33 

IFt  lit  I ) ) 45.  30,  60 

FUNC 

34 

46 

lit  I I a -IK  1 ) 

FUNC 

35 

60 

CONTINUE 

FUNC 

30 

IFtHAHEtO)  .HE  *3030  >9R  .HAtiEt  4 1 >NE . 132621  00  TO  61 

fuse 

37 

IFt L2 .OT .10. PHD . .2 .LT .28 1 L2aL2»0 

FUNC 

38 

IF(l,2.0T .0a.flll0.L2.Lr .40)  L2oL2-4 

FUHC 

39 

6] 

, in  lumii  i ) .eq.  o j ca  to  ss 

FUHC 

40 

X n Afloat  1 ) 

FUNC 

41 

LOCRTN  s 1 

rune 

42 

GO  T0MeO.4OO.6CO, 470. 400,510. 520. 530.540.550, 600.070.500. 530, GtfOoFUNC 

43 

1 010,480. 430,5500.300. 31 0. 320.330. 340. 350,300. 070. 300 .330, 400. 

nine 

44 

2 410. 420. 43U. 440. 460.340, 300. 360.3701. L2 

FUHC 

46 

02 

flftCSt  1 1 = X 

FUNC 

46 

66  IFf  NRilflX  •HE • 0 1 00  TO  GO 

rune 

47 

CALL  I’RKOiU  0 1 

FUNC 

40 

CO  TO  200 

FUHC 

40 

60  iFuiFine.Ert.oi  call  pibk 

FUNC 

60 

IFOIFLAO.C3.1)  Oil  TO  200 

FUNC 

61 

ASSIGN  250  TO  INDEX 

FUNC 

62 

IFt  FfiflOU  .Efl.  2 > 00  TO  50 

FUNC 

69 

ire  KJHOt  1 ) -LA.  0 ) CO  TO  70  . 

FtMC 

54 

.v 


-■o.-MVr  .vucm;  vzxjifKtwrfr  -vr^w  M 


k. 

C 

FUNC  58 

i* 

C THO  ARGUMENTS*  FIRST  IS  A CONSTANT 

FUNC  60 

r'i  -» 

C 

FUNC  87 

CALL  VECTOR!  ARGSt  1 1,  IL  ) 

FUMC  58 

* 

CO  TO  200 

FUNC  59 

5-.y  ' 

C 

FUNC  60 

yVj 

C THO  ARGUMENTS.  FIRST  IS  A COLUMN  NUMBER 

FUNC  61 

C 

FUNC  02 

70  LOCRTN  s 2 

FUNC  63 

I 5 IL 

FUNC  64 

00  IF  ( I .GT.ILZ  ) 00  TO  200 

FUNC  65 

C£t‘ 

X a RC(  11  1 

FUNC  66 

f|: 

00  TO  INDEX.  !250. 300.310. 320. 330.34O.3S0. 3S0.370.380.330. 400. <10 

.FUNC  67 

1420.43Q.44fl.4Si).4SO.47G»480#49P.SOO.Slfl«52O,53O.54Q.35C1.5GO«57O. 

FUNC  68 

fv 

26S0.SS0.C00.Q101 

FUNC  09 

75  RC.  I 1 a X 

FUNC  70 

(%!* 

11  = 11  ♦ 1 

FUNC  71 

l> 

!»!*! 

FUNC  72 

t 

00  TO  00 

FUNC  73 

f 

90  K2  a 1 - KINOt  2 1 

FUNC  74 

i'“ 

t ' 

IF!  KINO!  1 1 .EQ.  0 1 00  TO  110 

FUNC  75 

C 

FUNC  76 

C THREE  ARGUMENTS.  FIRST  ONE  A CONSTANT 

FUNC  77 

»■■ 

e 

FUNC  70 

> 

00  100  1 a IL.  ILZ 

FUNC  79 

t 

RC!  I 1 a KCl  I 1 » RC!  12  ) « fiROSt  1 1 

FUNC  80 

100  12  e 12  ♦ M2 

FUNC  61 

1 ‘ J 

CO  TO  200 

FUNC  02 

i;:  t 

C 

FUNC  03 

y.v 

C THREE  AR0UHENT6.  FIRST  A COLUMN  NUMBER 

FUNC  04 

► 

C 

FUNC  85 

« 

1)0  LOCRTN  a. 3 

FUNC  80 

} 

5,  • 

IaIL 

TUNC  07 

120  IF  ( I .GT.ILZ  1 60  TO  200 

TUNC  88 

H • 

X a RC!  It  ) 

FUNC  09 

09  TO  INDEX.  $200.300.310.320.330. 340. 300.300,370.300.300. 400. 410.FUNC  GO 

J, 

1420. 430. 440, 450.480, 470.480,490, 500.8)0,520.830.540,550.500. 070. 

FUNC  91 

%: 

250Q.530.G00.61ti) 

fUNC  82 

}■ 

£ 

116  RC!  1 1 a RC!  1 ) ♦ RC!  12  1 ■ X 

FUNC  03 

V- 

C; 

1)  a It  ♦ 1 

PUNC  04 

f- 

12  m 12  + K2 

FUNC  96 

$•-' 

!«!♦» 

FUNC  36 

>}■■ 

CO  TO  120 

FUNC  07 

J*  • 

200  RETURN 

rune  90 

f 

250  00  T014S9. 476, 473,409. 409. 503.013,020.539.549.509.669,079.699.600. FUHf*.  89 

1 COO. 453, 473.40!).£9f). 309.313. 3211, 339.34il.3S9.303.379.3Ca.333. 

FUNC  100 

h 

2 403.419. 429.43.1. 440. 339.343, 3S0.9091.L2 

FUNC  )01 

L 

200  CALL  ERROR!  L 1 

FUNC  102 

l 

208  X a 0. 

FUIIC  103 

V 

275  00  TO  ! 82,  75.  US  ),  LOCRTN 

FUNC  104 

C SIN 

FUNC  105 

- 209  ASSIGN  300  TO  INDEX 

FUND  100 

i.  • 

300  X u FSIllt  X ) 

FUNC  107 

1 

CO  TO  27S 

FUNC  108 

i 

,s 


"1 


r>^.' 


C 

* 409 

410 


cos  . . 

ASSIGN  310  TO  INDEX 
X b FC08I  XI 

00  TO  275 
TON 

ASSIGN  320  TO  INDEX 
X s FS1N(  X 1 / FCOGC  X 1 
GO  TO  275 
COT 

ASSIGN  330  TO  INDEX 
IFIX.EQ.O.)  X=l.E-75 
X s FCOSt  X 1 / FSINl  X 1 
GO  TO  275 
flSIH 

ASSIGN  340  TO  INDEX 

ire  A3SI  X 1-1.  I 3-M,  342.  343 

IF(fl!3Sm.LT.l.E~39)  X=0. 

X a ATANI  X / SORTt  1 . - X 0*  2 } 1 
GO  TO  275 

X a SIGH!  HAtFPI.  X 1 
GO  TO  275 

1 a 103 
GO  TO  280 
PCOS 

ASSIGN  350  TO  INDEX 

IF! A0SIX1.GT. 1.100  TO  343 

IFCAOSm.LT.l.E-301  GO  TO  342 

X a ATMH  GUItfl  1.  - X w 2 if  X ) 

GO  TO  273 

ATAN 

ASSIGN  3G0  TO  INDEX 
X a ATR«<  X 1 
00  TO  275 
ACOT 

ASGION  370  TO  INDEX 
IPIX.EO.Q.)  Xs|.t‘-75 
x a mmu  I.  / X ) 

00  TO  278 
61(40 

ASSIGN  380  TO  INDEX 
X a OEO  m X 
GO  TO  300 
COSO 

ASSIGN  390  TO  INDEX 
X a 020  u X 
GO  TO  310 
TANO 

ASSIGN  <00  TO  INDEX 
X a PCO  « X 
GO  TO  320 
COTO 

ASSIGN  410  TO  INDEX 
IFtNOSm.LT.l.E-74)  Xal.E-74 
X a DEO  H X 


FUNC  109 
FUND  110 
FUND  111 
FUNC  112 
FUNC  US 
FUNC  114 
FUNC  115 
FUNC  116 
FUNC  117 
FUNC  118 
FUNC  119 
FUNC  120 
FUNC  121 
FUNC  122 
FUNC  123 
FUNC  124 
FUNC  125 
FUNC  126 
FUNC  127 
FUNC  128 
FUNC  129 
FUNC  130 
FUND  131 
FUNC  132 
FUNC  133 
F'JNC  134 
FUNC  135 
FUIIC  136 
FUNC  137 
FUNC  130 
FUNC  139 
FUNC  HO 
FUNC  141 
FUNC  142 
FUNC  143 
FUNC  144 
FUNC  145 
FUNC  140 
FUNC  147 
FUNC  140 
FUNC  149 
FUNC  ISO 
FUNC  181 
FUNC  152 
FUNC  153 
FUNC  184 
FUNC  165 
FUNC  169 
FUNC  157 
FUNC  ISO 
FUNC  ISO 
FUNC  160 
FUNC  161 
FUNC  162 
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i 00  TO  330 

' • C PSIND 

419  AGGICN  <20  TO  INDEX 
420  IFl  AU5t  X ) - 1.  ) 421#  422.  343 

i 421  iFiflncitJn.u.i.e-csi  x*o« 

t X s RAO  a RTflMt  X / SQOTt  1.  - X »*  2 1 1 

: CO  TO  £73 

422  X a SIGN!  30..  X 1 
i GO  TO  273 

C ACOGO 

429  ASSIGN  430  TO  INDEX 

4S0  inpaS(X).GT.l)  03  TO  343 
| iFinoocxj.uT.i.e-aaj  go  to  422 

1 X = Rf.0  n ATRNl  SQiUt  l.  - X »o  2 ) / X J 

i 00  TO  27S 

• C ATANO 

430  ASSIGN  440  TO  INDEX 
440  X s ROD  u ATOM  X J 

00  TO  275 
C PCOTO 

440  RSSION  450  TO  INDEX 

• 4so  xm.en.o.i  xai.t-70 

x d nno  m atahi  i.  / x ) 

00  TO  275 
C AOS 

453  ASSIGN  m TO  INOEX 

460  X a AI31  X ) 

00  TO  275 
C 60RT 

' 409  RCGION  470  TO  INDEX 

470  X a FSflRTt  X ) 

GO  TO  275 
C CXP 

479  ASSIGN  480  TO  INOEX 
400  X « FEXP(  X ) 

GO  TO  275 
C MEXP 

403  ASSIGN  480  TO  INDEX 
480  X a fkxpi  -X  1 
00  TO  275 

c too  • 

499  ASSIGN  500  TO  INDEX 
600  X o FtGOC  X 1 
00  TO  275 

c tooio 

609  AS6I0N  610  TO  INDEX 

510  in  X .OT.  0.  1 00  TO  611 
t,  c 101 
09  TO  200 

Oil  X a AtOOlUl  X 1 
00  TO  270 

’ ..  C AUOO 

610  ASSIGN  520  TO  INDEX 

020  IP(  X .or*  75.  1 CO  10  022 


FUNC  169 
FUNC  1C4 
FUNC  105 
FUNC  160 
FUNC  107 
FUNC  160 
FUNC  189 
FUNC  170 
FUNC  171 
FUNC  172 
FUNC  173 
FUNC  174 
FUNC  178 
FUNC  170 
FUNC  177 
FUNC  178 
FUNC  179 
FUNC  100 
FUNC  101 
FUNC  182 
FUNC  103 
FUNC  104 
FUNC  105 
FUNC  180 
FUNC  107 
FUNC  10B 
FUNC  189 
FUNC  190 
FUNC  191 
FUNC  192 
FUNC  103 
FUNC  194 
FUNC  195 
FUNC  190 
FUNC  107 
FUNC  190 
FUNC  199 
FUNC  200 
FUNC  201 
FUNC  202 
FUNC  203 
FUNC  204 
FUNC  £05 
FUNC  200 
FUNC  207 
FUNC  200 
FUNC  209 
FUNC  210 
FUNC  211 
FUNC  212 
FUNC  213 
FUNC  214 
FUNC  216 
FUNC  210 


X s 10.  n X 
GO  TO  278 
L a 102 
CO  TO  280 
SINK 

ASSIGN  830  TO  INDEX 

Y s FEXPI  X ) 

IFIY.EA.O.)  GO  TO  £85 

X a .0  » t Y ♦ 1.  / Y)  » TAHHC  X X 

GO  TO  275 

COSH 

ASSIGN  540  TO  INDEX 

V e FEXPt  X 1 
IFIY.Efl.O.)  CO  TO  2SS 

X a .5  s ( Y ♦ l.  ✓ Y 1 

00  TO  275 

TflHH 

ASSIGN  S50  TO  INDEX 
X a TfiNHt  X 1 
GO  TO  27S 
COIN 

ASSIGN  5GQ  TO  INDEX 
IFIX.EQ.O.J  XaI.e-75 
X s I.  / TRMHI  XI 
GO  TO  27S 
ASIHH 

OSS I ON  570  TO  INDEX 
IFtnSStXI.LT.l.E-7)  GO  TO  2S5 

X = SIGN!  OLOGt  ADS1  X 1 * SQATC  X m«  2 ♦ 1.  1 1.  X ) 

GO  TO  275 

ACOSN 

ASSIGN  590  TO  INOEX 
IFlX.LT >1 .)  CO  TO  343 

iFix.or.i.esi  eo  to  ooo 
XsnLOO(X*UURT(Xau2-I.J) 

CO  TO  278 
XsRL0G(2.nX> 

GO  ro  275 
ATflflH 

ASSIGN  830  TO  INDEX 
If t Anot  X ) .ur.  1.  > 00  TO  802 
L s 1C3 
CO  TO  280 

X a .8  * fiUOOt  ( l.+X)/tl.-X)i 

CO  TO  27 S 

ACOTM 

ASSIGN  600  TO  INDEX 

IFt  fi'JSt  X ) .U*.  1.  ) 00  TO  C02 

X a .0  ti  flLOOt  (k  + l*W(X-l*)l 

00  TO  £7S 

1 a 103 
CO  TO  *.!G0 

ASCI  ON  010  TO  INtlEX 

IFtX.GT .1 .OX.X.LT <0*1  03  TO  349  . 


FUNC  217 
FUNC  218 
FUNC  219 
FUNC  220 
FUNC  221 
FUNC  222 
FUNC  223 
FUNC  224 
FUNC  225 
FUNC  220 
FUNC  227 
FUNC  220 
FUNC  229 
•FUNC  230 
FUNC  231 
FUNC  232 
FUNC  233 
FUNC  234 
FUNC  235 
FUNC  230 
FUNC  237 
FUNC  238 
FUNC  239 
FUNC  240 
FUNC  241 
FUNC  242 
FUNC  213 
FUNC  244 
FUNC  243 
FUNC  2«6 
FUNC  247 
FUNC  240 
FUNC  249 
FUNC  250 
FUNC  281 
FUNC  282 
FUNC  283 
FUNC  284 
FUNC  205 
FUNC  250 
FUNC  257 
FUNC  250 
FUNC  2S0 
FUNC  2G0 
FUNC  201 
FUNC  262 
FUNC  203 
FUNC  2G4 
FUNC  203 
rUNC  260 
FUNC  207 
FUNC  200 
FUNC  209 
FUNC  270 


FUMC  271 
PU.VC  272 
FUHC  273 
FUNC  274 
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c.r.9-.  rtPSW4  > 


If*  i 


c 

c 


SUBROUTINE  GENER 

COMMON  / GLOCKfl/MOOE  «H .KARO 1771 «KARG»ARG*fiR02 .NCNCOl  19 ) .RROE'IO 
1.NEHC0SI  19.51  .KSflVE.NGrtVE.fiPLfiO 

COMMON  / QLOCKO  / RCtZ4391,IARG6{63).KlWO(331«ARGTA0C511.NiMftX. 

1 NRCH.HCOLtNANGS . VMXYZ  C 5 1 
DIMENSION  ARC3U1 
EOUI VALENCE t AKCOC 1 ) #RC! 24011 1 

THIS  SUBROUTINE  15  CALLED  in  response  to  the  command  generate 
int  NARCO  .GE.  4;.fiND.  HOD!  HfiRGS.  Z 1 .EG.  0 1 GO  TO  20 
CALL  ERROR  (101 
CO  TO  2 00 

GET  STORAGE  COLUMN  ADDRESS 
20  CALL  AGREES ( HAROS.  J 1 
IF!  J -RT.  0 1 OQ  TO  SO 
3 CALL  ERROR! 3) 

00  TO  200 


I ARCS ( l-l  ) 


40 


100 


110 


120 

130 

IDO 

200 


CONVERT  INTEGERS  TO  FLOATING  POINT 
SO  DO  40  I b 2,  NflROS 

IFC  KIND!  l-l  1 .EC.  0 1 ARGS!  1-1  1 
CONTINUE 

K=0 

DO  50  I=4.HARGS.2 

fl=!  ARGSt 1-1 1-ARCS! 1-3 J 1/ARG3! 1-2) 

IF(A.LT.0.1  00  TO  3 
GO  K=K»IFIX(fH.991*l 

IFCK.LE.NR0M3  00  TO  00 
CALL  ERROR!  201  1 
00  TO  03 

GO  CALL  PLOW  1 

68  If (NFLAG.EO.l 5 RETURN 
RC(  J 1 a RR08I  1 1 
HOROH  - J ♦ NRON  - 1 
00  130  I s 4.  NORCO.  2 
8 = SION!  1<»  Al!03(  1-211 
EtIOER  s ARCS!  I - 1 1 - .01  » AROS!  I - 2 ) 

J a J * 1 

RC{  J 1 ; IlCC  J - 1 1 ♦ ARCS!  X - 2 1 
IF!  8 M ! RC(  U ) - ENOCH  J.OE.OO  00  TO  120 
IF!  J .LT.  HOROH  1 00  TO  100 
GO  TO  ISO 

PASSES  GENERATE  UPPER  SOUND#  SET  IN  UPPER  BOUHO 
RC(  J ) a ARCS!  I - l ) 

CONTINUE 

NRtlflK  a IlflXOt  NRItAJt.  J - HOROH  ♦ WHOM  1 
RETURN 
END 


OEHE 

OtiNE 
OCHS 
GENE 
OEHE 
GENE 
GENE 
■(.'SHE 
GENE 
GENE  10 
OEMS  11 
CENE  12 
GENE  13 
GENE  14 
GENE  IS 
GENE  16 
GENE  17 
OEHE  10 
DENE  10 
GENE  20 
GENE  21 
OEHE  22 
GENE  23 
GENE  24 
OENE  28 
CENE  23 
GENE  27 
GENE  20 
OENE  20 
Cfc'NE  30 
OENE  31 
OEHE  32 
GENE  33 
CENE  34 
GENE  38 
OEHE  S3 
GENE  37 
GENE  38 
GENE  39 
OEHE  40 
OEHE  41 
OENE  42 
GENE  43 
GENE  44 
G2IIE  4S 
GENE  4fl 
GENE  47 


SUBROUTINE  INPUT 

COHHON  / QlOCi?fl/nflOE.,H.KflRnt77).KflRO.fWG,fiRa2.NeWCOU3).RROEflO 
l.NEHCOStlO.Sl.KSftVEoNSflVE.NFLflG 
C 

C THIS  SUBROUTINE  READS  IN  THE  LINES  FROM  THE  REPLY  AREA. 

C • ' " ' ? : 

NC  a 76 

CALL  GKRPLYtHEHCO.KC)  . ...  . 

KfiRDt llsO 
, IWROIEIsO 

KflRPIKROEKD+S  IMS. 

CALL  OtSCONVl  NEWCO • KfiUDtS).  KROEND  ) 

RETURN 

ENO 


INPU  1 
INPU  2 
INPU  3 
INPU  4 
INPU  S 
INPU  6 
INPU  7 
INPU  0 
INPU  8 
INPU  10 
INPU  11 
INPU  12 
INPU  13 
INPU  14 
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SUBROUTINE  IHVCHKINO.OET.JPI 

INVC 

1 

cmiiidM/ouscH'u/Nflneu  j .li  .lz.isrflo 

INVC 

2 

COMMON  / SLOCitO  / RCI24391 .lARGSl691.XINCI33>.AROTABtSn .NRMAX, 

INVC 

3 

I NROH.NCCl.NAROo.VtlXTZlS) 

INVC 

4 

COHHON/SCSAT/BISO) 

INVC 

5 

BEAUS  <tM0J.2Et<O.GHE«O£T 

INVC 

0 

EQUIVALENCE  IA.O) 

INVC 

7 

c 

INVC 

8 

c 

THIS  SUBROUTINE  PREPARES  A MATRIX  FOR  INVERSION 

BY  MOV  1110  IT  TO  A 

INVC 

9 

c 

SCRATCH  AREA.  IT  RLGO  CHECKS  THE  INVESTED  MATRIX  FOR  ACCURACY 

INVC 

10 

c 

USING  ERR  TO  STORE  THREE  MEASURES  OF  ACCURACY. 

IIIVC 

11 

c 

INVC 

12 

c 

HI  HILL  CONTAIN  THE  OINENSION  OF  THE  MATRIX  TO  BE  INVERTED. 

INVC 

13 

c 

INVC 

14 

c 

BETsO  IF  MATRIX  IS  SINGULAR. 

INVC 

IB 

c 

JC  IS  USED  WHEN  A SYSTEM  OF  LIHEAR  EQUATIONS  IS 

TO  BE  SOLVEO. 

INVC 

IS 

c 

IT  INDICATES  WHERE  THE  Y VECTOR  IS  LOCATED. 

IUVC 

17 

c 

INVC 

18 

DATA  EERO/O. OO/.ONE/J  .00/ 

INVC 

19 

NA-IAR&3I31 

INVC 

20 

OETrZERO 

INVC 

21 

mi2.EQ.21  JC=JP 

INVC 

22 

NBD=HD+1 

INVC 

23 

NDE=2aK3 

INVC 

24 

JAPalARGStlJ 

INVC 

25 

00  10  Isl.NA 

INVC 

20 

JAaJAP 

INVC 

27 

00  9 «lsl  ,NA 

INVC 

20 

AIJJsHERO 

INVC 

29 

AldlsRCUAl 

INVC 

30 

9 JAnjfloNROII 

INVC 

91 

inL2.EQ.il  00  TO  11 

IIIVC 

32 

A(NB)sRCUC) 

INVC 

93 

JCs.lCtl 

INVC 

34 

11  00  12  .lr.NUA.NUE 

INVC 

35 

AIUlsZEKO 

INVC 

30 

IF(.NflO.EQ.I)  AlJlaONE 

INVC 

37 

12  CONTINUE 

INVC 

30 

CALL  OCRAM(l.Z) 

INVC 

39 

10  JflPsJAP*! 

INVC 

40 

inL2.EQ.ll  00  TO  14 

INVC 

41 

DO  13  dal, NOE 

INVC 

42 

19  ACdlsZERO 

INVC 

43 

AINOJc-ONE 

INVC 

44 

PtMDElaONE 

INVC 

45 

CALL  GCHAhtNQ.21 

INVC 

40 

14  CALL  GPJNVdOiOETl 

INVC 

47 

RETURN 

INVC 

40 

ENO 

INVC 

49 
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SUBROUTINE  INVERT 

COMMON  / BUOIJKfT/HOOS-n.KnROI^TJ ,KflRO.fln»«flR02*NEHCOC 131.KK0EN0 
1 .NEUCnSt  19.0  .KSflVS  .NSnVE.NPJ.fl3 

conmw/scnnr/ajoo 

COHKON/BLCCXE/NAKE  ( <11. LI.  12.  IGRFL9 

COMMON  / BLCCi.O  / KC(2439}.IRRG3(63),KIHOI391*nRDTn0<Bn.NRMA}|, 
1 NR0M.NC0L«HflRG3»VHXYZ!51 
01  HENS  I ON  SEXTUS) 

REALfcO  nt  40 1 . DET 
EQUIVALENCE  (A.Q) 

&»»  THIS  SUBROUTINE  IS  CALLED  IN  R-'CPONfiE  TO  THE  COMMANDS  HINVERT. 


C»b*»  INVERT . (‘.LINEAR.  flMU  LINEAR. 

Canos  L2al  - INVERT.  HINVERT 

Cnmi  L2=2  - LINEAR.  liLINEflR 

IF( HARRS .Ed .8  >0R .NflRGS .Efl .5 1 00  TO  1200 
CALL  ERROR! 10} 

RETURN 
1200  J=NAR03 

CALL  CKIND  (Jl 

IP(J.NE.O.OR.IAROS(3}.NE.IARfiS(4i.ANO.Nna08.EQ.O)  00  TO  ZOO 

IF(NAKOS.EQ.O)  00  TO  00 

KINDt8)=0 

XAROSIO IsIARRSt 51 

IRRC'St  5 IsIARRS!  4 1 

!ARB3!4)aIAi403!3) 

SO  J=1 

IFJL2.EQ.2)  00  TO  88 
J=2 

IARGS!81»XftRfM](4) 

IHR08(?|BI0R0SI9) 

SB  CALL  MTXCHKN1 
IFU-11  86.200.208 
SB  IFUflROSIBI.Or.IBI  00  TO  200 
HlsIARC3(3} 
lFJL2.Eil.il  00  TO  89 
HIsMld 

CALL  A0<ES6!B.JC1 
CALL  AL'RLSS(O..I) 

IF! J.LE.O. OR. JC.LE.O)  00  TO  211 
88  CALL  FLCR 

innaAO.fa.n  return 

CALL  INVCH>»t!ll.Oer,*IC> 

Cumbb  CHECK  TO  SEE  IF  MATRIX  HAS  INVERTED • NO.  If  OETsO. 
IFJOl'T.E'.l.U.OOl  00  TO  240 
iO«!ARW!31 
JEttEulU 

IFJLS.EA.R)  (10  TO  100 
CttiBtt  STORE  INVERTED  MATRIX 
JQulflKOSlB) 

OOsMl*! 

oo  no  i=i. in 

CALL  SCRAIK I *1) 

JCsJO 

00  100  JaJO.JE  . 


INVC  I 
INVE  Z 

me  9 

INVE  4 
INVE  S 
INVE  6 
INVE  7 
INVE  8 
INVE  0 
INVE  10 
INVE  11 
INVE  12 
INVt  13 
INVE  14 
INVE  IS 
INVE  10 
INVE  17 
INVC  10 
INVE  18 
INVE  20 
INVE  21 
INVE  22 
HIVE  23 
INVE  24 
INVE  25 
INVE  20 
INVE  27 
INVE  28 
INVE  29 
INVE  30 
INVE  31 
INVE  32 
INVE  33 
INVE  94 
INVE  33 
INVC  SO 
INVE  37 
INVE  30 
INVE  39 
INVE  4(1 
INVE  *1 
INVt  42 
INVE  43 
INVE  4« 
INVE  45 
INVE  49 
INVE  47 
INVE  48 
INVE  49 
INVE  80 
INVE  SI 
INVE  52 
INVE  53 
INVE  84 
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RCIJdsAIJ) 
tOO  JCsJCWIKOH 
ItO  J3aJ3*l 
CO  TO  ISO 

Chm  STORE  REGULT6  Of  SOLUTION 
130  DO  140  Isl.Jfl 
COLL  6CUAI1U.il 
RCtdlsIUJEJ 
HO  JaO»l 
ISO  N0UII=4 

HrllTElMDUil.lOO)  OET 

160  FORMAT!  'THE  nETERMIHANT  OP  THE  INVERTED  MATRIX  ISMP013.8) 
CALL  FETCH! TEXT «JD»UQCO! 

CALL  0&XSPI3) 

CALL  CROIU.YITEXT. JO. 41000) 

CAUL  GRCPLYC  * M.UOUO) 

CAUL  ORO?UT!‘  M ,4)000) 

RETURN 

200  CAUL  ERROR! 31 
RETURN 

205  CALL  ERROR! 17) 

RETURN 

211  CAUL  ERROR! 11) 

RETURN 

230  CAUL  ERROR!  23  J 
Cb&utt  PRINT  MATRIX  TOO  LRKCS  TO  INVERT 
RETURN 

240  CALL  ERRMUOO) 

C«»nm  PRINT  MATRIX  IQ  GINCUUU  OR  NEAR  8IN0ULAR-N0  INVERSE 
1000  RETURN 
END 


1NVE  S3 
INVE  56 
INVE  57 
1NVC  GO 
INVE  59 
INVE  CO 
INVE  61 
INVE  62 
INVE  63 
INVE  64 
INVE  65 
INVE  GO 
INVE  67 
HIVE  60 
INVE  69 
INVE  70 
INVE  71 
INVE  72 
INVE  73 
INVE  74 
INVE  75 
INVE  70 
INVE  77 
INVE  73 
INVE  79 
INVE  00 
INVE  01 
INVE  02 
INVE  03 
INVE  04 
INVE  03 
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SUBROUTINE  LOCKUP  LOOK  1 

COKMtW3LOCne/NflilF:m.LI,LZ«ISrcFLO  LOOK  * 

DIMENSION  IR(lSl.K:(t71,HU2).JF£73l, 10141. KAI2Q).HHU2).  LOOK  9 

lMl(24J,JTUO).JZrJO).HVU21.HJt22).IOC3G)  LOOK  4 

LOOK  S 

THIS  6U0R0UTINE  IS  USED  TO  SEARCH  FOR  A RET  MORE)  CORRESPONOINO  TO  LOOK  6 
THE  ONE  IN  THE  REPLY  AREA.  IF  ONE  IS  FOUHO.  THO  VAHIAOLES.  LOOK  7 

LI  RNO  L2.  nne  set  which  hill  oe  useo  III  ceterhihino  which  LOCK  0 
SUBROUTINE  TO  CALL  LATER  TO  EXECUTE  A SPECIFIC  COilHANO.  LOOK  9 

LOOK  10 

HfWIAX.V.H.X.Y.Z/  LOOK  11 

LOOK  12 

DATA  N LOOK  13 

1/16033. 16767. 1749S.1B22S. 10934. 1070S.5»0.137?/  LOOK  14 

LOOK  IS 

AOS. EXP. LOO. SORT. HEGEXP.LOOTEN.ANTILOO.SIHH.COSH.TANM.CQTH.ASINH*  LOOK  10 
ACOSH.ATANM.RCOTH.nEVNOR, ABSOLUTE .EXPONENT. l.OCE  LOOK  17 

6IN.COS.TflN.CCiT/RRCStfl,nKCCOG.nr<CTn?l,fli<CCOT/CJHO.CCSO.rnilO.COTO/  LOOK  10 
AS1NO.ACOSO.ATANO.ACOTO/A31N.ACOS.A7AH.ACOT/  LOOK  19 

LOOK  20 


DATA  JF/SA2. 0.4309. 0. 9100. 0.1 4329. 14500. 10343. 1309. 91C0. 14729, 1127LO0K  21 
1,0900. 14103.0032.2011. 5032. 14021. 0032,2012.5032.  1251.  10422.  P2S.MOLOOK  22 
2G7. 1270, 10422. M790.3073.10029, 002. 1120l);<309.U3lO.91C0. 313 1S.LO0K  23 
314100, 0.2G11. 0.14321 .0.2012.0. 1210. 14103.1210.2011. 1210. 14021 .1213L00K  24 
4.2012.14100.2010.2011.2910.14(121 .2916,2012.2910. 1231. 1Q3H.023.  LOOK  2 U 

9 13909.  LOOK  26 

51270. 10314.025.14000. 12B1. 10200.820, 13351. 1270.10206.020. 14500/  LOOK  27 

LOCK  *0 

A00.GU3.HULT .01 V .RAISE, SUOTRA.hULTIPLY. DIVIDE/  LOOK  29 

LOOK  30 

DATA  IRt  1 ) .JRf£) . IfU  3)  »IRi  4 l.IRtOl  .JRtOJ  .lfH  71*19101  «l(H3).lRU0)«L0Gi<  31 

1 iKim..‘nci2MR{i3i,mti4>.iniitn.ir«un/ou.o,i4*.23. 0,10056.  look  32 

2 14500.3101 ,0,10150.13380,14420.10007*10030.14033.3101 .6074/  LOCK  93 

LOOK  34 

oehesate.se r/  look  as 

LOCK  36 

DATA  10/5252 <4152.1 4000,0/  LOCK  3? 

LOOK  30 

'HOEFINE  .AOLt'IftL  .ADI  AO.HOIAO.HZERO.AIEf.O.HESHSf  .AEftAOE  * ill  CENT  LOOK  39 

WRACK/  LOOK  40 

LOOK  41 

DATA  lift  / 9390.  *631.  042.  4031.  LOOK  42 

4 040.  916.0501.  910.  10104.  13527.  1430*  13527.  8030.  1247.  LOOK  43 

$ 032.  1247,  3724.  4043.  lUODii,  015/  LOCK  44 

LOOK  45 

HIHVttRY  .L  IHlf.tt  *1  MVCnr  LOOK  *0 

tUtULf  .RNA16E/  LOOK  47 

LOOK  40 

BATA  09/9734, 1A191.3005.D030.GQ01, 4151 .9010, 10342.  LOOK  40 

1 00*0. 9200 .0354. 7079/  LOOK  50 

LOCK  61 

Hmio.Hnuii.iiTRn!is.AAOd.nsmi.riHULT.AoivioE.ai,iifiE»5CALA(i.Arfuws,  look  sc 

ASCilLAK  .IlSCALflil  LOOK  59 

LOOK  54 


finnncon  nnnn  f»«n  ones  nnnn  nnnn  non 
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DATA  HOm.flBf?Ml0(3).«5(4).HO(Sl.H3(Cl.H8<?).(1O{O)  / LOOK 

t 95C0.  20IG.  120)1.  1450.  10035.  1126.  760.  25)10  / LOOK 

DflTfi  H3(9).H0(10>.nnm  1.1131121. 113(13). KUtl41.H0USl.Maa6)  / LOOK 

1 1 "03.  1400.  1101.  9200.  040,  1E2C5.  121B.  7079  / LOOK 

enrn  cam).  i:n:iai«  Hutim.  not 20 >.  Mumi.  i!Bt22)«»iac23i.fflH24)/L00K 
113933.  0793.  1297.  1122.  1245.  ICS4.  3293.  1C54  / LOOK 

LOOK 

PflRSun  ,pnmm  .rho  .nvt'Kfics.sutt  look 

LOOK 

DATA  37(1  ).JT! 2)..l’<3).JTf  41.JTt5).JT(C).jr(7).JTt0).JT(9)  ,JT(  10J/L00K 
1 11709.  14431.  1170.9,  12105.  13432.  0.  1323.  13158.  14431.  QJ  LOOK 

LOOK 

ROiiOUn.PKOCUCT.OCKl.'lE.HnX.rtflXIIlUa.MIH.hlNIHUn.SO.'lT.ORaEil,  LOOK 

Ei'tflGC.EXCttfWGS  .f'L  If*  .C,H9NCE  .HIEKflliCHY  . LOOK 

LOOK 

DATA  JZ  / 13050. 1443). 12105.3405.3057,6344,9029. 0.3520. 0933.9734. 0UJ0K 

1 .9734.  C933.1. 1274. 14530. 11  <4(9(5. 4101. 4132. 13302.4230.5075, 4707. 11S04L00K 

2 .2404. 10403.0200. 13167. 10705. 9740/  LOOK 

LOOK 

CLQ5e.COU:IT.SHOKTffl.EXPRMO.OUPHCflTE.HOVS.DLoCUTKnNSfEK.S«OVt\  LOOK 

KMOVE.PKOKOVL.OeiiOTE  LOOK 

LOOK 

CATO  HJ(  1 1 .HJf 2).KJ(3)  .HJt  4 1 .11  Jl  5)  ,ttJ(0)<HJ(?)  .MJtOl.ttJ, 9) »KJl  10) .LOOK 
1 Hut  11 1 ,hJi  12 1 ,HJf IS) .tt.lt  14) ,HJC  15)  .HJt  16)  .IIJC  i?)  .l:J(  19)  .HJt  19),  LOOK 
i HJ1291 ,hJt£) 1 »KJ( 221/2320, 13303 .2313, 10743, 14002.  LOOK 

4 1 9G87 , 430!) . 11  It  .34513. 05). VI  ,m>  .30 13 . 1 797 .2504.  LOOK 

6 10C5. 10 1 73, 3343, 10173.1 2 103.3302 .3054 • LOOK 

C 1 1403/  LOOK 

LOCK 

m,  x.  xnx.no.  ca  ,nv,v  look 

LOOK 

DATA  flX/ 1 0) 44 , 1 7491,1 7547.337 .2943 .1323.1 6038/  LOOK 

LOOK 

HVLCoino.flVfccoino.Mvtciiar.nvECAKii.HiiflrVEc.wirjivec  look 

LOOK 

DATA  KV  / 1007(1 ,8604,1 320 .2504.  LOOK 

Z 1C036.2839. 1323.2232.0329. 15173.774. 13721/  LOOK 

LOOK 

/OHHX.VOmtP.VOKKii.OSlKX.CAKP.COilZ.CHIK.CHll'.ClUZ  LOCK 

tlX.TTP.TTH.9L  i f,7  .UtfHP  .Ot’TAZ  ,)TX  .KfP.tYH  LOOK 


55 

36 

57 

50 

59 

60 
81 
62 

63 

64 

65 
60 
67 
CO 
63 

70 

71 

72 

73 

74 

75 
70 
77 
711 
79 
60 
01 
02 
03 
84 
03 
DO 
07 
00 
03 
90 
31 

92 

93 
S4 


LOOK  95 

DATA  10/18013, 10123. UiniO.mO.ICSin. 10179, 610,17400.5143.11654.  LOCK  98 
1 t*143»tCT!»J,»}MI".17 130, (M12»  1 1681,2412.  )Ci)3 1.13144  «rt  *13136.0,  LOCK  97 

t 10140.0. 1613, 1377. 1013. lull.  1013. 1431.406U.il. 4>', 82. 0*4868,0  / LOOK  90 

,—u** . »5** s-a~ . “H“  .“«•  i«iia i-in  .•»»  ,»*» .»i4/  LOOK  39 

LOCK  ICO 

CHECK  flfJlCS  Ulfil  GUf«LlPi£»u  FI66T  LOOK  1(11 

LOOK  10.1 
LOOK  103 

g£CET»  iLIKNUV.U.g.Y.Z  LI  3 1.  L2  u 1 - 5 LOOK  104 

LOOK  103 

inrWCUJ  l.!lE. 13270. CK.f(ftHE(2). lit. 4103100  TO  1«0  LOOK  103 

00  104  L2*I,Q  LOOK  107 

lf(fi)UIL(3).La.fl(L21.r<;i9*Hiina4>*t:Q.lHL£46l}  CO  to  ICO  LOOK  ICO 


OUU  uuuu  " ouu  uuu  " ” uuuuuuu 
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194  CONTINUE 
60  TO  099 
108  List 

60  TO  900 

REM  U s 2 

UG  IPt  HAKE I 1 ) .HE .13250  .OR  .NflHEC  2 J *NE  *291 6 i GO  TO  110 
U s 2 
60  TO  900 

HCXX’J.tllX’Xl.MX’AXl.mXAX’l.HCADi.MCOAl.MAVl.ntY’AJ 

U a 3.  L2  s 1 - 7 

170  ifc  name:  n .he.  9477  1 go  to  100 

LI  a 3 

00  174  12  a 1.  7 

IFC  NHKEC31  .EC.  HXCL2)  1 00  TO  £00 
174  CONTINUE 
60  TO  809 


LOOK  109 
LOOK  110 
LOOK  111 
LOOK  112 
LOOK  113 
LOOK  114 
LOOK  115 
LOOK  116 
LOOK  111 
LOOK  110 
LOOK  119 
LOOK  120 
LOOK  121 
LOOK  122 
LOOK  123 
LOOK  124 
LOOK  125 
LOOK  126 
LOOK  127 
LOOK  126 
LOOK  129 


HVEC0in0.«VEC0lfl0.HYECK6T.flVECflRR#HnflTVEC.fiaRSV£C  Li=13.  L2»l-6  LOOK  130 


IFti;ftKEm.ca.HYC2BL2-n.AN0.NflHEt«>*Ea*MV(^L2))  00  18  100 
104  CONTINUE 
00  TO  200 
100  11=13 

ADO .SUB . MULT.0IY .RAISE  »SU3TRfl«HULT 1PL7 .01 V10E 


LOOK  132 
LOOK  133 
LOOK  134 
LOOK  135 
LOOK  136 
LOOK  137 

LI  = 4,  L2  a 1 ».  810011  139 
LOOK  139 
LOOK  140 

m 00  T0  208  {*55f!  }J5 

204  CONTINUE  - HEX  JJJ 

60  TO  210  J2 

200  LI  a 4 HXC 

L2BL272  J? 

00  TO  000  ffi  !Jo 


LOOK  148 

nOS.EXP.LOO.SaflToNEOCXP.LflOTEN.fiflTlLOO.SlNH.COSH.TfiHH.COTH.nSlHU.  LOOK  ICO 

ACOSH.nTfiNH.RCOTH.OiVnOR.naSOLUlE.KSI’WENT.IOCt.  J.OOK  161 

6IH.COt>«TAH*COT .ASCCJN#flACCQ3.l»ICTflM.fiKuC0T.SlNO.C0o0«rflilO.COTO»  LOOK  IS. 
ASlI10.nC0S9.nfAr)BoflC0r0.A3iM.«C0a.ATflN*ACOr.  Ltuti.L&USJ  LOOK  163 


210  L1«S 

IFC  NOME  UhEQ^jn  L2-1 ) .AN0.WU1K 1 2 ) *E3 . JF(  L2 1 > 00  10  228 
224  CONTINUE 
00  TO  230 
226  L2«L2/2 
00  TO  900 


c 


LOOK  164 
LOOK  153 
LOOX  ISO 
LOOK  167 
LOOK  160 
LOOK  ISO 
LOOK  160 
LOOX  161 
LOOK  162 


C GENERATE .SET  U a 6.  L2  a 1.2 

C 

230  00  234  LZ-  Z,  4.2 

iFtNnnEm.EQ^oiu-n.ftKn.iifufEczj^Q.rotm)  so  to  zoo 

234  CONTINUE 
GO  TO  230 
233  LI  a 6 

L2  eL2  / 2 
GO  TO  300 
C 

C tl0EKINE.ACEFIH£.«0IAG,tt0If]G.HZER0.AZER0.MERACE.AERfl3E»NICUiT 
C NTfiRCE/ 

C LI  a 7.  U =1  - 10 
C 

250  DO  254  L2  a 1.  10 

IFINflNEm  <£0.  nm2*L2-n  .AND.  N.1KEI21  .EG.  KAC2«L2)I  GO  r ' 250 
254  CONTINUE 
GO  TO  260 
256  U s 7 
GO  TO  800 
C 

C MINVERT.LINEAR, INVERT, HLINERR  LI  c 0.  L2  a I,  2 
i imULT.HRrllSE  LI  c 0,  12  a 1.  Z 

*’200  DO  204  L2  a 1 . 0 


LOOK  103 
LOOK  104 
LOOK  IBS 
LOOK  IBS 
LOOK  187 
LOOK  168 
LOOK  ICO 
LOOK  170 
LOOK  171 
LOOK  172 
LOOK  173 
LOOK  174 
LOCK  175 
LOOK  176 
LOOK  177 
LOOK  170 
LOOK  179 
LOOK  100 
LOOK  101 
LOOK  102 
LOOK  103 
LOOK  104 
LOOK  185 
LOOK  100 
LOOK  187 


mmuiEm  .eq.  imi2aL2-»  .and.  nakeizi  .eg.  wisaizn  go  to  zgo 

204  CONTINUE 
GO  TO  270 
208  LI  sfl 

IFCL2.GT.4)  Ll=9 
UnltOD(L£»l«2)«I 
GO  TO  900 
C 

C NAOO.HSUO.HTRRNS.fiflOO.nSUa.AHULT.ADlVIOE.IWfllSE.SCALAR.flTRflNS. 

C ASCALAR.HSCALAR  LI  a 10,  L2  a 1 - 3 

C 

270  00  274  L2  » 1.  12 

IFlWAHcl 1 1 .EG.  «0I2dL2-1I  .flMO.  NAHE(2)  .EQ.  NB(2uL21)  00  TO  276 
274  CONTINUE 
GO  TO  290 
27G  LI  a 10 

IFC  L2  -1C  J 800,  277,  270 
277  LZ  » 3 

go  to  eea 

270  LZ  * 9 
GO  TO  900 
C 

C PflRSUH .PARFIWO «RHS .AVERAGE .CUH  LI  - 11,  L2  a 1 - G 

C 

280  Li — 1 1 

GO  294  12  s 1 , 0 

IFINAtlEm  «EQ.  0T12ULZ-1)  .8110,  NAHEI2)  .EG.  OT12UL2))  00  10  800 
>.284  CONTINUE 
C 


LOOK  188 
LOOK  103 
LOOK  190 
LOOK  101 
LOOK  192 
LOOK  193 
LUCK  134 
LOOK  195 
LOOK  196 
LOOK  197 
LOOK  190 
LOOK  199 
LOOK  200 
LOOK  201 
LOOK  202 
LOOK  203 
LOOK  204 
LOOK  205 
LOOK  200 
LOOK  207 
LOOK  208 
LOOK  208 
LOOK  210 
LOOK  211 
LOCK  21* 
LOOK  213 
LOOK  214 
LOOX  215 
LOOK  210 


on  o ri  noon 


t NflHOUH.PRODUCT.QEnKS.NnX.MAXIHUH.HIM.HINIKUN.SORT.OROER.  LOOK  217 

C ERASE. EXCHANGE. FLIP .CHANGE. HIERARCHY  LI  s 12  L2  a 1 - 14  LOCK  210 

C LOOK  219 

LI  s 12  LOOK  220 

00  804  L2*1.1S  ' LOOK  221 

iFiwwem  .eo.  jzteou-n  .and.  hamc 1 2 j .eq.  jz<2ai2ii  00  to  sooldox  222 

304  CONTINUE  LOOK  223 

LOOK  224 

CLOSE . COI iNT . SHORTEN , EXPAND .OUPL ICATE .HOVE. BLOCXTRANSFER .AMOVE , LOOK  225 

UltOVE .PROMOTE. DENOTE  LI  a 14.  L2  a 1 - 11  LOOK  220 

LOOK  227 

LI  a 14  LOOK  220 

00  324  L2  = 1.  11  LOOK  229 

lrttiar.Em.Ea.K  2oL2-l).fiN0.NArtEl2).Ea.HJC2»L2»  OO  TO  SOO  LOOK  230 

124  CONTINUE  LOOK  231 

LOOK  232 

TTX.TTP.fTZ.OETf?X,OETfiP.BETflZ.FPX,FFP.FFZLl=12.L2al-14  LOOK  233 

YORIlX.YORNP.VORItZ.GfUlX.GmiP.GAtlZ.L'Hn.CmP.DlIZ  LOOK  234 

LOOK  235 

llslS  LOOK  230 

O03UOL2*1,1O  LOOK  237 

IFINDHEt 1 1«ED.IO(2bL2-1 ).AN0«NflHEt2J.EQ.IG( 2aL2Jl  00  TO  000  LOOK  230 

SGO  CONTINUE  LOOK  209 

090  LlaO  LOCK  240 

800  RETURN  * LOOK  24JI 

END  > LOOK  242 


UOUUUUUUUUUUOUOUUUUUUUOUOUUUOUUUUUUUV"  uuuuuuuuuuuuu 


MAIN  OHO  CROSS  REfTRENCE  TABLE 


RAIN 
RAIN 
MAIN 
RAIN 
MR  IN 
RAIN 
RfllN 
HAIN 
RAIN 
RAIN 

«nin 

MAIN 

HAIN 


PROHOR  PRQROW  REAAQ 
STMT  TRfltiSF  VRRCQN 


BLOCKS 


OLOCRF 

CONSTS 

KPLOT 

PCONST 

ORB 

SCflflT 


nnsrr.G 

ERASE 

INVCHK 

MRflIGE 

REAUX 

XOHIIIT 

AR1TM 

INVCHK 

NXTX 

IRflHSF 


RRITH  flRYVKC  BLOCK 
EXCHNG  EXrflNO  EXf'COH  EXTREH  FUf 


CHANGE  CHKCOL 


THIS  IS  fl  CROSS-REFERENCE  TA3LE  SHOWING  HUICH  SUBPROGRAMS 
REFERENCE  PARTICULAR  CLOCKS  OF  COMMON  OR  FRRTICULHR  SUBPROGRAMS 
THIS  LIST  DOES  NOT  INCLUDE  THE  FOLLOWING  SUBROUTINES  WHICH  ARE 
SALLES  ONLY  BY  THE  SUBROUTINE  XECUTE. 

fifUTH  CHARGE  DEFINE  ERASE  EXCHNG  EXPCON  EXTREH  FLIP 

FUUCT  Gt'Nt'R  INVERT  KATRtX  HI6C2  MhlILT  HOF  HOVE 

HRAISE  HSCKQM  HXTX  POilflTE  PROROH  KEADX  RESET  SET 

60R0ER 

0HNITA3  USES  UMLABEI.LEO  COMION  IN  ERROR.  OHNIT.  PLBU.  PRORAM. 

NORXO.  XECUTE.  XCMHIT. 

uaaBBBBBBaBBiiaattaaau  UlOcLLEO  COMMON  BauaBBaBBtt»M»BBU»>*BJ«BBBHaBBBanBDeiDHAIM 

HA  IN 
HAIN 

BLOCKS  HAIN 

HAROS  ARITH  fiRTVEC  ASTER  BLOCK  CHANGE  DEFINE  ERASE  MAIN 

ERROR  EXCHNG  EXPCON  EXTREtt  FLIP  FURCT  6EKER  INPUT  HAIN 

INVERT  MATRIX  KDAHAO  HIGC2  HHULT  HOP  HOVE  KR3ISE  HAIN 

IIGCROH  HXTX  NNHKE  H0M5LA  OilNIT  POHOTE  PHYCON  Pl.BK  . HAIN 
REAOX  RESET  SET  6ETQ  SCROER  HAIN 

XECUTE  XOHNIT  HAIN 

BLOCKD  HAIN 

HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
HAIN 
MAIN 
HAIN 
HAIH 
IIHIN 
HAIN 
HAIN 
HAIH 
HAIN 
HAIN 
HAIN 
HAIH 
HAIN 
HAIN 
HAIN 
HAIH 
HAIN 

ARYVEC  EXPCON  INVCHK  INVERT  MATRIX  tlOfHUW  HIGC2  HHULT  HAIN 

HOP  HOVE  MRAISE  HXTX  PROROH  COROER  SPINY  TK0MP  HAIH 

HAIH 
HAIN 
HAIH 
HAIH 

CuH*aaaaa*MbaaaBBBBBB  SUBROUTINES  AND  FUNCTIONS  aau»aaBaaaaaaa«aaaaMaaa«HAIN 
C , HAIN 


INVERT 

HSCItSH 

RESET 

XPNO 

ARYVEC 

INVERT 

OHNIT 

XECUTE 


HftTRIX 

HfXCHK 

SET 


OLOCit 

LOOKUP 

POHOTE 


HOflilAO  HIGC2  HHULT 
HXTX  OHNIT  POHOIE 
SETtl  SOROER  TRANSF 


CKIf.’D 

FUHCT 

HOP 

PROROM 

VECTOR 


DEFINE 

OENER 

HOVE 

KfAOO 

IIOKKO 


DEFINE  EXPAND  EXPCON  EXTREH  FUflCT 
MATRIX  HOAMAI)  HIGC2  HOP  IISCROM 
PROROW  REAOX  RESET  SET  SOROER 


ACRESQ  BLOCK  HXTX 
BLOCK  FUNCT 

BLOCK  ERROR  OHNIT  PLUK  PRORAH 

BLOCK  PHYCGN 

OHNIT  REflOfl  REAM  GET  SETS 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
10 

17 

18 

19 

20 
21 
22 

29 
24 
23 
26 
27 
20 
23 

30 
91 
32 
99 
94 
35 
DO 
37 
30 

39 

40 

41 

42 
49 

44 

45 
40 
47 
40 

49 

50 

51 

52 
03 
54 
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1 

l 

i 


v 

i 

R 


i- 

| 

y 

t 

t 

l 

I 


| 

I 

v 

t 

| 

! 


c 

HRIN 

55 

c 

AflROS 

MfllN 

50 

c 

ASTER 

OMNIT 

MAIN 

57 

c 

RDRESS 

MAIN 

SO 

c 

ns  ITU 

RRYVEC 

CHKCOL  DEFINE  EXPCON  FUNCT 

OEHER 

INVERT 

..MAIN 

53 

c 

OflttX 

STRTO 

YOKMP 

MAIM 

60 

c 

flERR 

MAIN 

61 

c 

ERROR 

HRIN 

62 

c 

RRYVEC 

MAIN 

63 

c 

MXTX 

MAIN 

84 

c 

ASTER 

MAIM 

65 

c 

OMNIT 

* 

MAIN 

60 

c 

BETflP 

MAIN 

87 

c 

FFP 

STRTO 

MAIN 

63 

c 

8ETRX 

MAIN 

69 

c 

BETflP 

rrx 

STRTO 

MAIN 

70 

c 

OETAZ 

MAIN 

71 

c 

FFZ 

STRTO 

HRIN 

72 

c 

CHIP 

MAIN 

73 

c 

STRTO 

MAIN 

74 

c 

CHIX 

MAIN 

75 

c 

STATD 

MAIN 

76 

c 

CHI  2 

MAIN 

77 

c 

STRTO 

MAIN 

70 

c 

CHKCOL 

MAIN 

79 

c 

CHANGE  ERASE 

EXCHNO  EXTREM  FLIP  HISC2 

POMOTE  PROROH 

MAIN 

80 

c 

REAOX 

60R0ER 

MR  IN 

61 

c 

CKINO 

MAIN 

62 

c 

RRYVEC  EXPCON 

INVERT  MATRIX  MOflMAD  MISC2 

MNULT 

MOP 

HRIN 

03 

c 

MOVE 

MSAISE  MXTX  TKRNSF 

MAIM 

64 

c 

COMANO 

MAIN 

85 

c 

OMNIT 

HRIN 

00 

c 

OISPLY 

hAlN 

0? 

c 

OllNIT 

MAIN 

60 

c 

OtOOH 

MAIN 

89 

c 

OETRZ 

onnx 

GAME  TTZ  STRTO 

MAIN 

90 

c 

ERROR 

. 

MAIN 

01 

c 

AAR03 

RRITH 

RRYVEC  ASTER  CHRNOE  DEFINE  ERASE 

EXCHNO 

MAIM 

92 

c 

EXPRilO  EXPCON 

EXTREM  FCOS  FEXP  FEXP2 

FLIP 

FLOO 

MAIN 

83 

c 

FSIN 

F6GRT 

FUNCT  Of.HcR  INVERT  MATRIX  HOI-MAO 

I1J8C2 

MAIN 

94 

c 

mailt 

HOP 

MOVE  MOUSE  MACRON  JIXTX 

OHM  IT 

POilOTE 

MAIN 

95 

c 

PIIOROU  KEROO 

RliflDX  RESET  SET  SETQ 

SOROER 

TKRNSF 

MAUI 

98 

c 

EXPAND 

MAIN 

97 

c 

aittixr 

MAIN 

90 

c 

FC06 

MAIN 

98 

c 

FUNCT 

MAIN 

100 

c 

FEXP 

MAIN 

101 

c 

rrnicr 

PEXP2 

MAIN 

102 

c 

rtxt’2 

MAIN 

103 

c 

rrith 

MATRIX  DISCS 

NAIM  104 

c 

FFP 

MAIN 

105 

c 

GTflTO 

TTP 

MAIN 

100 

c 

m 

MAIN 

107 

c 

6WT0 

TTX 

F 

MAIN 

109 

nnonrmnnnnnnnhnnonnnnnflnnnononnnnnnonnnnnnnnrinnhnnnnn 
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rn 

HAIN  109 

8TRT0 

RAIN  110 

FLOO 

RAIN  111 

FUMCT 

MAIN  112 

F8IM 

RAIN  113 

FUNCT 

RAIN  114 

FSQRT 

MAIN  115 

FUMCT 

INVCHK  MSCROM 

RAIN  116 

OARP 

RAIN  117 

CHIP 

STflTO 

RAIN  113 

m* 

RAIN  119 

OETAX 

CHIX  OAHP  STATD 

HAIN  120 

CAKE 

MAIN  m 

CHIZ 

DAMP  STATO 

RAIN  122 

INPUT 

RAIN  123 

OMNIT 

HAIN  124 

IMVCHX 

MAIN  125 

INVERT 

RAIN  126 

LOOKUP 

RAIN  127 

OMNIT 

MAIN  120 

MDAHAO 

RAIN  123 

MXTX 

RAIN  130 

MTXCHK 

RAIN  131 

HRYVEC  EXPCOM  INVERT  MATRIX  RPftHflO  RISCZ 

HMULT  MOP 

MAIN  132 

MOVE 

HRAISE  RXTX  TRANSF 

RAIN  133 

NNflHE 

RAIN  134 

A6TER 

OMNIT 

HAIN  135 

NONDLA 

MAIN  136 

ASTER 

HAIN  137 

OHCONV 

MAIN  130 

INPUT 

RAIN  139 

PHYCOH 

RAIN  140 

AGTER 

RAIN  141 

PLOK 

RAIN  142 

ARITH 

ARYVEC  CHANCE  DEFINE  ERASE 

EXCHHA  EXPCOM  EXTREH 

RAIN  143 

FLIP 

FUMCT  GENEft  INVERT  MATRIX  ttOAIino 

NISC2  KftllLT 

MAIN  144 

MOP 

MOVE  HRAISE  NSCROU  NXTX 

PONOTE  PR0R01I  REGET 

RAIN  145 

SET 

SETS  BORDER  TRRN6P 

MAIN  146 

PRQftflH 

' . 

HAIN  147 

ERROR 

OHNIT  XECUTE 

RAIN  143 

REAOQ 

• 

RAIN  149 

OHNIT 

MAIN  ISO 

GCRfltt 

MAIN  1S1 

INVCHK 

INVERT  MATRIX  HOAHAO  MICC2 

hHUlT 

hove  mx 

HAIN  152 

CPINV 

TRANSF 

RAIN  I S3 

6ETQ 

■ 

MAIN  154 

OMNIT 

RAIN  1SS 

6FXHV 

RAIN  ISO 

INVCHR 

.. 

RAIN  IG7 

TRANSF 

“ ’• 

RAIN  IDO 

MXTX 

MAIN  159 

TTP 

RAIN  ICO 

6TAT0 

HAIN  181 

TTX 

• 

Mill  162 

fl 
t ' 


c ctato 

C TTZ 

C STflTO 

C VARCGN 

C ASTER 

C VECTOR 

C DEFINE  ERASE  EXTREit  FUHCT 

C HORKO 

C OHNIT 

C XECUTE 

C OHNIT 

C XOItNIT 

C OHNIT 

C XPNQ 

C EXPAND 

C VORHP 

C GflHP  FUNCT  CTATD 

C YORHX 

C MATRIX  HDflHflO  MI6C2  HOP 

C YORHZ 

C 8TATA  YORIIP 

COMMON  KEY.IOVLY.ITYPE 
OCFINE  FILE  20t 100.96.U.I0VLY) 
CALL  PLOTS! i.J.Ol 
CALL  OftlMTI'O') 
lOVLYs) 

COLL  OHNIT 

CALL  QK.USE 

CALL  PLOT! 20.. 0«. 009) 

STOP 

END 

* 


HAIN  103 
MAIN  104 
MAIN  185 
HAIN  168 
HAIR  187 
HAIN  160 

HISC2  HSCRON  PDHOTE  HAIN  103 

MAIN  170 
HAIN  171 
MAIN  172 
MAIN  173 
MAIN  174 
HAIM  J7S 
HAIN  178 
HAIM  177 
HAIN  178 
HAIN  179 
MAIN  100 

HSCRON  HTXCHK  SET  XPNO  HAIN  181 

HAIN  182 
HAIN  183 
HAIN  184 
HAIN  18S 
HAIN  100 
HAIN  187 
HAIN  188 
HAIN  109 
HAIN  190 
HAIN  181 
HAIN  192 
HAIN  183 
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l t 

SUBROUTINE  MATRIX 

HATR 

1 

i ' 

5 

COrtttCX  / B10CKR/H00E • H .KARO 1 77 ) ,KRR0#RR0«flrt02  .HEHCOI  18 I .XRDEIIO 

HATR 

Z 

| 

i .«e«cos(  18, si  .itcflve  .nsave.nflao 

HATR 

3 

[ 

COilllCM  / BICCKO  / (tCt  t4'J31.IfiSG5(63)«KIKC£381  »AR9Tflat51 ) .JIRHAX. 

HATR 

4 

[ ; 

t HR0W.HC3L.NARC3,VHXYZ(5) 

HATR 

5 

j 

CCHKBR/SCrtflT/m  80) 

HATR 

6 

C0f1tt0N/3L0C!»e/tiniiE(  4 ) .LI  .L2.ISRFL0 

HATR 

7 

I 

■ C Nana 

HATR 

8 

{ 

C THIS  SU3R0UTINE  IS  CALLEO  IN  RESPONSE  TO  THE  COMMANDS  MflOO.  HSU3. 

•HATR 

9 

i 

C HTRANGj  RTRflNS.  AAOO.  .flSUO.  AMU.  ROI VIDE  flKflJSE,  ASCfilRR.- 

HATR 

10 

j 

C HSCfSIAR  AND  SCALAR , 

HATR 

11 

C 1,2=1  - I1R00 

HATR 

12. 

I : 

C L2*2  - HSU3 

HATR 

13 

C L2=3  - MTRRNS.ATRF^S 

HATR 

14 

i 

C L2»4  - RflOl)  . .• 

HATR 

18 

i ; 

C L2=5  - R5UQ 

HATR 

16 

; 

C L2sS  - AM1LT 

HATR 

17 

C L2=7  - AOIVIOE 

HATR 

18 

5 

C L2=8  - RRRISE 

MATS 

JO 

C L2=9  - ASCAlAR  .tlSCALAR. SCALAR 

HATR 

20 

« 

C aaaa 

HATR 

21 

i : 

NROHPP=NRON 

HATR 

22 

i 

K«1 

HATR 

23 

\ 

HROWPsNSOW 

HATR 

24 

\ 

C aaua 

HATR 

28 

C CHECH  TO  SEE  IF  HE  HflYE  CORRECT  NUMBER  OF  ARGUMENTS 

HATR 

26 

; 

C IF  HOT  HO  FURTHER  CHECKING  IS  DONE 

HATH 

27 

i 

C aaaa 

HATR 

28 

■ * 

IF(l2-3)100.120.140 

HATH 

29 

■,  < 

100  IF(;ifiROS.NE.0.AH0«NflRG<S.NE.l0»flMD«WARGS.NE*7)  GO  TO  400 

HATS 

30 

i 

00  TO  005 

HATR 

31 

120  IFINARG3 .HE .6 .AND  .NriRGS .HE  «B ) 00  TO  400 

HATR 

32 

GO  TO  eos 

HATR 

S3 

! 

140  inNRROS.Lr.a.OR.HRRGS.OT.lO.OR.HflROS.Efl.D)  GO  TO  400 

HATR 

34 

: 

80  TO  640 

HATR 

95 

1 

400  CRt.L  ERROR  (10) 

HATR 

30 

■ 

RETURN 

HATR 

37 

C aaaa 

HATR 

38 

C CHECK  TO  SEE  IF  RU  ARGUMENTS  ARE  INTEGERS 

HATR 

39 

C IF  NOT  NO  FURTHER  CHECKINS  18  DONE 

HATR 

40 

C anna 

HATR 

41 

603  JaNARGS 

HATR 

42 

CRLL  CKJNO(J) 

HATR 

43 

610  IFIJ.EQ.O)  CO  TO  800 

HATR 

44 

620  CALL  ERROR! 3) 

HATR 

45 

RETURN 

hATR 

40 

640  N2«IIARGS-Z 

HATR 

47 

ini.2.EQ.3.n;!O.KIHO(N2J.EQ.O)  CO  TO  620 

HATR 

48 

IF(NARG3.QT .7)  00  TO  COS 

HATR 

40 

C aana 

HATR 

SO 

C FIND  RDREG8ES  OF  COLUMNS 

HATR 

81 

C aaaa 

HATR 

32 

CALL  AOREGSOI2.IOP) 

HATR 

63 

JFIIOP)  660.620*060 

HATR 

64 

! 


680  I0P=-1BP 

HATR 

65 

I 

KsO  ■■ 

HATR 

SO 

1 

680  (WOHPsO 

HATR 

87 

I 

K1N0( N2  )=KI ND( NARGS ) 

HATR 

S3 

3 

i 

IRKG3W2}=IARC6(N2*1) 

HATR 

59 

IAR0S(N2+1  )sIfif?GS(HAKOSi 

HATR 

60 

w 

CO  TO  60S 

. HATR 

01 

1 

800  KIN0(C)=0 

HATR 

62 

1 

KINDt 103=0 

HATR 

63 

. ■.  i 

IFt  (IARG3  .80 .6  .AND  .L2 .LE .3 .OR  .NARGS .EO  .7  .ANE3.L2 .01 .3  .OR  .NARG5.GT  .7  3HATR 

64 

■ * 

1 00  TO  000 

HATR 

65 

i 

NsNfiRC-3 

HATR 

63 

i 

V 00  SSO  J=3.NARG3 

HATR 

67 

1 

lARG3Ul*»sIflRGSlNl 

HATR 

68 

1 

850  H=N-1 

HATR 

69 

- - 

900  iriN.ms.cT.si  oo  to  1000 

HATR 

70 

i 

IflRCSt  lOlr.IfiRGStfil 

HATR 

71 

i 

inRCS(9)=inRG5t71 

HATR 

72 

1 

rnL2.E0.33  00  TO  3300 

HATR 

73 

i 

ifmc-smaifiROsm 

HATR 

74 

$ 

rAR0S(?3=IARGO<  31 

HATR 

75 

| 

co  to  im 

HATR 

76 

1 

1300  IARGS(91iIfiRGSl31 

HATR 

77 

i 

MROSmalflRGSU) 

HATR 

78 

•ii 

& 

NROKPP.nl 

HATR 

79 

1400  mNRROS.GT. 7. 0R.E2.LT .3)  QO  TO  1000 

HATR 

80 

i 

J=2 

HATR 

81 

1 

00  TO  1700 

HATR 

82 

1 

Caiman 

HATR 

83 

1 

C CHECK  TO  SEE  JF  OlhEflSIONS  ARE  CORRECT  IF  THEY  ARE  GIVEN 

HATH 

04 

C IF  NOT  NO  FURTHER  CHECKING  IS  DONE 

HATR 

85 

$ 

C MNUM 

HATR 

83 

1000  IFlIflRCSt3).ME.lARG3(7).0rt.IflKQ8C4l.HE.lARGfi<8)»  GO  TO  620 

HATR 

07 

1 

1600  lAR0S(12J=inrt0Sm 

HATR 

89 

I 

lflR0Sm)  = IflRG6(31 

HATR 

89 

’2 

J=3 

HATR 

90 

1 

1700  CALL  HTXCHK(J) 

HATR 

91 

I 

1FC0-13  1000. 020, 17S0 

HATR 

92 

1780  CALL  ERROR! 17) 

HATR 

93 

1 

RETURN 

HATR 

94 

I 

1800  CALL  PLBK 

HATR 

95 

1 

IFtNFLnO.EO.n  RETURN 

HATR 

93 

1 

IFlNAROa.CT.V.eR.LZ.LT.S)  00  TO  1000 

HATR 

97 

1 

icpaiflrtosts) 

HATR 

98 

1 

oo  to  mo 

HATR 

99 

9 

1900  18PalARCS(S) 

, HATR 

too 

1 

ICPolflRCOOl 

HATR 

101 

1 

2000  11031(1.108(71 

HATR 

102 

1 

JJUalflimSIO! 

HATR 

103 

I 

ACS I ON  2100  TO  N 

HATR 

104 

1 

lAPttlAROSdl 

HATR 

105 

00  3560  Usl . JJO 

HATR 

100 

IRalAP 

HATR 

107 

.1 

lOalBP  • 

HATR 

100 

00  3540  1*1,113 

00  TO  N.( 2120. 21 40 ,2200 *2160. 2175. 2320. 2100) 

2100  00  TO  (21 1 0. 2 1 30. 2 1 30.21 10*2130.21 50*2170. 231 0 *2150 )*L2 
2110  ASSIGN  2120  TO  N 
2120  nmaRCiiflifHCt mi 

GO  TO  3500  : '■ 

2130  ASSIGN  2140  TO  N 
*140  nm=5C(ifi)-RC(ia) 

03  TO  3500 

• 2150  ASSIGN  2160  TO  N 
2160  fl( I)-KCnO)>iRC( ID) 

GO  TO  3300 

2170  ASSIGN  2175  TO  H 

2175  IFtflGSIRCl IDJ1.GT .1 .£-50)  23  TO  2180  ' 

At  15=0.  * 

CO  TO  33 00 

2180  nm=KCUfl)/RC(I3) 

GO  TO  3500 

2190  OSS I CM  2200  TO  N 
2200  nm=nc(  rai 
IA=IA+NROfl 
GO  TO  354!) 

2310  ASSIGN  2320  TO  N 

2320  (U  I ):;FEXP2(i(CC  If!)  *RC(  13)1 

3500 

IAsIA+I 
3540  CONTINUE 

MPaMPtHROSIW* 

JDP=ICP»N,<UMP 
35G0  CALL  SC«m(J,2) 

C tmmt 

C MOVE  RECULTS  FROM  SCRATCH  AREA  TO  WORKSHEET 

C BUB* 

00  4080  Jsl.JJB 

call  8canmj.il 

ICslCP 

00  4030  Iwl.IIO 

Rcucianm 

4060  CONTINUE 

ICP=ICP*MROH 
4000  CONTI HUE 
RETURN 
ENO 


HATR  109 
HATH  110 
HATR  11) 
HATR  11Z 
HATR  113 
HATR  114 
HATR  115 
HATR  116 
HATR  117 
HATR  116 
HATR  119 
HATR  120 
HATR  121 
HATR  122 
HATR  123 
HATR  124 
HATR  125 
HATR  126 
HATR  127 
HATR  123 
HATR  129 
HATR  ISO 
HATR  131 
hRTK  132 
HATR  133 
HATR  134 
HATR  135 
HATR  136 
HATR  137 
HATR  130 
HATR  139 
HATR  140 
HATH  141 
HATR  142 
HATR  143 
HATR  144 
HATR  145 
HATR  143 
HATR  147 
HATR  140 
HATH  149 
HATR  100 
HATR  101 
HATR  152 


SU8R0UTINE  HOAHAO 

COKHON/OLGCKE/f'AMEm  .1.1  .L2.IGRFLQ 

C0HH3N  / OLCCKfl  / ftC!2439).tAR03£09).KIN0<39).flROTAatSn.NRnAX 
1 NR0II.HC0l.,!inaG3,YmZt5} 

coMMeM/scanr/nt  co 

COMMON  / OUnCRn/H3Dir.M.KRRO{77J<f;nRO.flRO,nRC2.Ne«COtl9J.KRDENO 
1 .NEKC03U9.S)  .KGAYE.HCAVE.tlFLAG 

0 MKttKJi 

C THIS  SUCRC1UTKIE  IS  CALLED  IN  RESPONSE  TO  THE  C0MMAN03 

c tufloi  mio  nioni 

C L2t4  • Ht  001 

c L2  ts  s - tuun) 

C MMHC1M 

C CHECK  FOR  CORRECT  NUMBER  OF  ARGUMENTS 

C vanna 

IF! HAROS .HE .7)  00  Tn  170' 

C Mrnun 

C CHECK  TO  SEE  THAT  ALL  ARGUMENTS  ARE  INTEGERS 
C UbtauM 

Jaf’flROS 
CALL  CKINOtJ) 

IFtd.NE.03  00  TO  ICO' 

C Munna 

C CHECK  TO  REE  IF  DIMENSIONS  ARE  OUT  OF  RANGE. 

C AND  COMPUTE  ADDRESS  OF  COLUMN 

C btman 

CALL  fiURESStS.IOPl 
IFCIOP.GT.O)  GO  TO  SO 
CALL  ERROR (UI 
RETURN 

so  lARC.atsjninaRsto) 

lflR96(0)alRR0S<7> 

IAR0S(7»«IARGS(3) 

lARGStfllalARCSUl 

J=Z 

CALL  nTXCmt(d) 

iFtj-n  iso  . iso  .iso 

ICQ  CALL  ERROR! 3) 

RETURN 

170  CALL  ERROR II 0) 

RETURN 

ISO  CALL  ERROR! 17) 

RETURN 

130  CALL  PUR 

IFiNFLny.EO.U  RETURN 
IPalflSCSm 

jpbIarcscsi 
tFiL2.C0.4I  00  TO  800 
11=0 
12cl 

CO  TO  280 
200  11=1 
I2»0 

260  IfialflRGSU) 


HOAIt  1 
Honn  2 
. HOAH  3 
H0AM  4 
HOAR  S 
HOAR  6 
NOAH  7 

noon  8 
HOfltl  9 
HOAIt  10 
HDAII  11 
HOAII  12 
HOAH  13 
H0AH  14 
HOAH  15 

nonn  is 

HOAH  17 
HOAH  18 
HOAH  19 
HOAH  20 
HOAH  21 
HOAH  22 
HDAM  23 
HOAH  24 
NOAH  20 
HOAH  20 
HOAH  27 
HOAH  20 
HDAM  29 
HOAH  30 
HOAH  31 
HOAH  32 
HOAH  33 
HOAH  94 
HOAH  95 
HDHN  36 
HOAH  37 
HOAH  38 
HOAH  90 
HOAH  40 
HOAII  41 
HOAH  42 
HOAH  43 
HOAH  44 
HOAH  45 
HOAH  46 
HOAH  47 
NORM  40 
HOAH  43 
MPHII  SO 
NOAH  SI 
NOAH  52 
NOAH  63 
MOAH  54 


I 


IBttlRRCSta) 

00  34(1  1=1  *IP 
IDsIOF 

. 00  30C  Jsl.JP 

flJJlaRCflOl  aRCUfll 
I0sI0t2 
in=in+i 
300  CONTINUE 

Ifl-sIfl+NROK-UP 
I0P=I0P*I1 
340  CALL  GCRflMU.2) 

00  440  1=1 .IP 

call  scrrwj.ij 

00  400  J=I.JP 
RC(  I!))=D(  J) 

in=.to<-.i 

400  CONTINUE 

I0=IO*NROM-UP 
440  CONTINUE 
RETURN 
END 


HORN  65 
MM!  56 
HDftll  57 

nunn  so 

HORN  50 
WORM  60 
I1DRH  Cl 
NORM  62 
MORN  63 
HORN  64 
flDflll  65 
HORN  60 
HDRI1  67 
HORN  63 
HCflH  69 

noaii  70 

HORN  71 

norm  72 

HDRil  73 
ttOiin  74 
HORN  75 


» i 


V'aWmH1  r**f 


h 
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SUBROUTINE  I1IGC2 

nice 

1 

f- 

COtIHON  / Dt,QCKtt/MOOE»H.Kf)ROt77),KARO«flRO«ARG2.NENCOtlO)  .KflDCND 

MISS 

2 

(>■  1 
1 

1 .NEMCDSt  13.5  i •KSAVe.NSaVE.HFLflO 

M16C 

3 

COMMON  / OLOCiU)  / RC(243a).IfiRCS(fl3).KIHQl30).AS0Tfiat511.JfflHI«, 

M1SC 

4 

ft. 

t 

1 HROU.NCOL.WIRCS.VimZCGl 

MIGC 

5 

X 

V, 

V 

C0IIM8N/UL0CKE/NRHEI  4 ) .LI  .L2.I5RFL9 

H1SC 

6 

ft' 

oiuaioioN  nRosai 

M1SC 

7 

I 

EQU.t  VnLEMCEt  RRGS  t 1 1 .RC12401 ) 1 

MIGC 

8 

CONhOH/GCRAT/Ht  30) 

MISC 

8 

/•■. 

V!' 

C 

nice 

10 

«■ 

C 

THIS  SUBROUTINE  IS  CALLED  IN  RESPONSE  TO  THE  COMMANDS 

HIGC 

11 

I 

c 

CLOSE.  COUNT.  SHORTEN.  EXPAND  UNO  DUPLICATE* 

RISC 

12 

<r,- 

; 

c 

L2=l  - CLOSE 

DISC 

13 

c 

12=2  - COUNT 

nice 

14 

c 

L2=3  - SHORTEN 

wise 

15 

Jj. 

I-'’ 

. c 

L2=4  - EXPAND 

HISC 

16 

c 

I2a5  - DUPLICATE 

HIGC 

17 

iV 

c 

msc 

19 

I 

J=NflRGS 

HIGC 

19 

IFlNfWOS.GE.2)  GO  TO  40 

HISC 

20 

'i 

10 

K = 10 

HIGC 

21 

ft-' 

20 

CALL  ERROR CK) 

HISC 

22 

£ 

90 

RETURN 

HISC 

23 

{'■ 

40 

00  TO  (50.74.50  .400,0001  . LZ 

HISC 

24 

/.*■ 

50  mKIU0tL21.EQ.ll  00  TO  70 

nice. 

25 

£ 

GO 

K r 3 

HISC 

26 

is; 

00  TO  20 

nice 

27 

l-i  • 

70 

K1N0CL2I  « 0 

HISC 

20 

i 

irU2.Ea.3X‘lD.II(lHGS.NE.S)  00  TO  10 

HIGC 

20 

AK01  s ARGo(L2) 

HISC 

30 

l: 

1AK0GU2]  a Ifl»0GtL2*l) 

HISC 

31 

£■ 

£ 

GO  TO  75 

HISC 

32 

74  IFtWittGS.RS.2i  00  TO  10 

HISC 

33 

V - 
i. 

75 

CAM.  OtKCOLtJ) 

HISC 

34 

f: 

*: 

IF(J.EQ.l)  DO  TO  00 

msc 

35 

fe 

c-. 

oo  no  isi.Nnnos 

HISC 

30 

$ 

80 

IflRO.'t  1 ) a IRStiGUI  - 1 

HISC 

37 

t: 

ts 

IFttllHlAX.&T.Ol  OU  TO  190 

DISC 

30 

120 

Ha!) 

HISC 

3D 

% 

CO  TO  20 

HISC 

40 

’hr 

130  COLL  PUIK 

HISC 

41 

f ■ 

■ 

mtll’LflO.EIMl  RETURN 

HISC 

42 

f 

IF  CL2  - Zi  140.200,300 

HICC 

49 

l, 

c 

HISC 

44 

| 

c 

CLOSE 

HIGC 

45 

c 

HISC 

40 

t 

140 

00  100  U=2.WW63 

HISC 

47 

I:' 

K a IfiHOStJI 

HIGC 

40 

H a 0 

HIGC 

49 

I 

| ¥ 

K\ 

00  IGO  lal.MHlAX 

nice 

50 

J1  « tt  ♦ I 

HISC 

51 

* 140  It’tRCtJil.Nt’.flROll  09  TO  ICO 

HISC 

52 

H • H ♦ 1 

HISC 

53 

| 

9 

IF  t (H*l)  .COv  ttU!HAX*I|  J 00  TO  J01 

HIGC 

54 

240 


HI  e 01  *1 
K3  K ♦ NRflfiX 

00  IPS  K2  = K1.K3  • 

155  RC<  HI  - 1 ) a RCt  K2  ) 

GO  TO  MO 
iso  coriiiNue 

161  IF  1 H .EQ.  0 1 00  TO  130 

n s rmtiax  - h * i 

00  ICO  I = M.flRMAX 

01  B K ♦ 1 

180  net  jj  i » o.o 

139  com  I HUE 
00  TO  30 
C 

C COUHT 

c 

coo  jr.ifiRoom*NnMnx»i 

00  250  Isl.W.WOC 
JJsJ-I 

IFIRCMJJ.HE.O.J  00  TO  £00 
250  COHTIHUE 
260  ARG1  a JJ~Ifl8i5Sm 

TARCS121  a lfiX0o(2)  ♦ 1 

cnu.  vector  ifUOi.iflRcsmi 

CO  TO  30 

c 

C 6H0RTEH 
C 

300  IFtHRHOX.EO.n  00  TO  370 
DO  360  KeX.HHinX 

01  a 10ROS121  * it 

IF  iOftfll  - HCtJl-U)  SEM.330,340 
320  If iim Ol.LT.rtCiJU)  09  TO  360 
350  HKUfIX  r.  K 
GO  TO  370 

330  HrtttOX  a K - 1 
CO  TO  370 

340  IFtllKfil -UMtCtom  00  TO  350 
360  COHTIIUIS 
370  00  330  Jal.lWMW 

It  a 10805(11  ■»  I 
J tt  10805(41  ♦ 1 
M a 1(11(05(5)  * I 
HI  a 1(1805(21  4 I 
RC(tt)  a (iC(!«U 
330  KCtJla  KClit) 

CO  10  30 

e 

C CVNWft 

c 

400  lF<(infU!ii.Ht,4l  00  TO  10 

irtKlimtSl.liO.Ol  fl8l\*(2lamsW(21 
imiHom.cfl.oi  nsociuiaiiucsoj 
1F(  J(U10o(  4 Mll’lXtiyOot 2 )/H.iCj(01* .5 MOT «HC0L1  00  TO  CO 
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CALL  fli)fteS$t4.Kil 
IftKl  .LE.O)  GO  TO  60 
KlsKl-1 

IftHIfJOtn.rtE.O)  00  TO  .460 
CALL  flOtCESSU.IAKGStll) 
irtlAAGSm.LE.Ol  GO  TO  60 
N 4 IflrtOSlll  - 1 
oa  400  isi  .Nsttnx 

JsKtl 

450  At!)  S RCtU) 

00  TO  430 

460  00  470  1=1  .flRUflX 

470  RUi  a noosm 
460  00  S 06  1=3.3 

jFtKuiDm.ea.O)  AROstn=iflRosin 
600  CONTINUE 

lFtflRGSm»RRCSm.LE.0.1  00  TO  60 
mtlShflX.L7.ll  GO  TO  120 
„CfU,L  PLBK 

mHFLnO.eO.il  RETURN 
CC  = ARCS! 3) 

570  OF  560  Jsl.HKHAX 
K b K1  ♦ I 

880  RCtK)  = FEXP2ffltn.ee) 

Jf t flBSt CC J-firiot HROStZ)  1 .GE.0 . 1 00  TO  30 
CC  = CC  ♦ flftGSt  3 1 
IflROSt  41  s IflROSt  4)  ♦ 1 
CALL  flDRESSt  4 .HI  1 
IFIKJ.LE.O)  00  TO  30 
KJaKl-1 
00  TO  870 
C 

C DUPLICATE 
• C 

600  JPtNflR03.He.71  GO  TO  10 
CALL  CfflHfltU) 

IPfJ.NE.fl)  GO  TO  00 
IARCS(8hvtr,RGSm 
DO  630  1=2.7 
630  lAROSn-llnlflitOStl) 

\JARG3l7)aIflRGSt8)jJjflB®ti<3)' 
lARQStOlaIRROSt  41 
J=2 

CALL  dTXCHItW) 

JPtil-nC60.Q0.04O 
640  K » 17 
GO  TO  €0 

660  IFtlAROOm  «LT .11  00  TO  CO 
,<*  CALL  PLOW 

irtm.A0.EfM)  return 

JYaZAROSm 
JEHO  a IflRGOtai 
LONG  a IfflUMOl 
UUOE  a JflitWSU) 


NIOC  109 

disc  no 
disc  m 

WirsC  112 
HISC  1)3 
DISC  114 
HISC  115 

disc  lio 

HISC  117 

disc  118 
disc  119 
disc  120 

dIGC  121 
dlSC  122 
dlSC  123 
dJSC  124 
dlSC  125 
dlSC  128 
dlSC  127 
HIOC  128 
disc  129 
disc  130 
MI6C  131 
HISC  132 
dlSC  133 
dlSC  134 
M1SC  135 
dlSC  136 
dlSC  137 
dlSC  138 
HISC  199 
dlSC  140 
HISC  141 
disc  142 
dlSC  M3 
HISC  144 
dlSC  1 45 
HISC  146 
dlSC  1 47 
disc  140 
HISC  149 
HISC  150 
HISC  IS) 
disc  152 
dlSC  153 
dlSC  154 
HISC  165 
dlSC  ISO 
dJSC  157 
DISC  158 
HIPC  159 
dICC  1G0 
HISC  101 

disc  162 


BO  705  1=1 .LHIOE 
Kl=IY 

DO  7 00  K-l .UOMO 
fl£*t  J^rtCtKl  I 
700  K}=K1»1 

crll  scrahu.xi 

706  IY  = IY  ♦ NROH 
lYsIflRGStS) 

00  730  JJ  = 1.  I END 
IXsIY 

00  720  I”1 .LHIOE 
CALL  6CRRf1U.ll 
Kl -IX 

00  710  ttel.UMO 

Rctim*MKi 

710  KlsHl»l 
720  IX  = IX  ♦ NROH 
730  IY  a IY  ♦ LONG 
GO  TO  30 
C.<0 


HISC  163 
HISC  164 
NI6C  166 
HIGC  166 
HISC  107 
HISC  160 
HIGC  169 
HISC  170 
hISC  171 
HISC  172 
HISC  173 
I11SC  174 
HISC  175 
HISC  176 
HISC  177 
HISC  179 
HISC  173 
HISC  100 
HISC  101 
HISC  102 


1 


SUBROUTINE  HHULT 

COKHGN  / DLOCKfl/HODE  *H .KAR0t77)  ,KflRO.flRO.RRC2.HEMCDtia)#KROEKO 
l#NEKC06tlB.Dl  .KSAVE.NSflVE.NFLAG 

CO  HU  ON  / BUCKO  J RCi 2433 ) . IflRGSt  63 ) .K INOt 3S ) .RRGTA8 1 Si  ) .HRHAX  . 
1 HRUW.HCflL.CflRCS.VUmtS) 

COKKON/cCm/M  80) 

C 00B09 

C THIS  SUBROUTINE  IS  CALICO  IN  RESPONSE  TO  THE  COHHANQ  HHULJ. 

C HMD 

IROHflalARCS(S) 

C IH» 

C CHECK  TO  SEE  IF  ME  HOVE  CORRECT  NUMBER  OF  ARGUHENTS 

C 0BJS0B 

IPtNflRGS.GT .lQ.Gfl.NflRCS.LT.7)  CO  TO  8110 
C MSOtiS 

C CHECK  TO  CEE  IF  ALL  ARGUMENTS  ARE  INTEGERS 
C 00000 
COO  JsHflRGS 

CALL  CKIND(J) 

IFtJ.NE.Q)  GO  TO  0103 
C 00000 

C CHECK  TO  SEE  IF  GIHENSIONS  ARE  CORRECT 
C 00000 

IFtHARG5.E0.10)  GO  TO  040 
lAROSt  lQ)sIAS0StmU)G31 
IAR0St0)aIfl|Ul!UNflRC6-l) 

IFtHflRG8.E0.fl)  GO  TO  830 
lfiflCStO)=inOMfl 
IFf HflRGG.E0.7)  00  TO  820 
lFtlARGS(G) .NE.IRGMA)  GO  TO  0109 
620  IAR0St0)eIflR<Mf3) 

IflRC-StSlalflflOSUl 
lARGCi 4 IsJKQMA 
CO  TO  03) 

830  tn;?ostmsin:?iv3t7) 

691  lAnCS(7)cIfliiG5(  4) 

GO  TO  noo 

840  1KUARC5U ) .tlE»lflSG3{7))  GO  TO  0103 
1180  icoujsiiwpom 

IFtinaun.GT.lS.OR.lCOLO.OT.lS)  00  TO  812* 

Wtcst  12)5)  COLO 
MftOSIUtolWSM 
J»3 

CALL  HTXCHKtJ) 

IFtU-ll  120U.0103.0117 
1200  CALL  I’I.RX 

irtNFLrtG.EU.l)  RETURN 
C HUUU0 

C OEGIH  HULTJPUCAIJCN 
C 00000 

ICOlA»lHKOSt4l 

HiPttlAROStS) 

80  3040  ICOsl .ICGL6 
lAPtjJflROStl) 


nnUL  i 
HKUL  .2 
HHUL  3 
HKUL  4 
HKUL  S 
HHUL  0 
HKUL  7 
HUUL  8 
HKUL  0 
HHUL  10 
HUUL  11 
HUUL  12 
HKUL  19 
HKUL  14 
HHUL  18 
HKUL  16 
HHUL  17 
I1HUL  10 
HHUL  18 
HHUL  20 
HHUL  21 
HHUL  22 
HHUL  29 
HHUL  24 
HHUL  28 
ilKUL  26 
HHUL  27 
HHUL  28 
HHUL  23 
HHUL  30 
HHUL  91 
HHUL  32 
HHUL  39 
- HHUL  34 
HHUL  35 
HIUIL  36 
HUUL  37 
HHUL  38 
HHUL  33 
HHUL  40 
HHUL  41 
HHUL  42 
HKUL  40 
HHUL  44 
HKUL  4S 
HHUL  48 
HKUL  47 
HKUL  40 
HHUL  49 
HKUL  50 
HKUL  51 
HKUL  52 
HKUL  59 
HHUL  54 


onr# 
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00  9020  IRfl=l«IROHA 

IfblflP 

IBaXBP 

(UXRfl)sO. 

do  9000  jsi.icoun 

miRfl)KKCtJ0)uRClX0J*fUIRfli 

lR»IfHHR0« 

IBaJOtJ 
3000  CONTINUE 
3020  JUW'aJfiP*! 

COLL  SCRRUt JC8»2J 
3040  It!?siap*NBOIl 
HUB  no 

STORE  linUUS  PRODUCT 

■■lisle 

ICPalflRCGtS) 

00  0100  J-1.JCOL0 
ICalCP 

coll  scnpnu.n 
: 00  0030  Jsl.lROMfl  • 
Rcucisfim 
1Cr1C«1 

8060  CONTINUE  - 
8100  ICPsICP*JlR0H 
RETURN 

8103  COLL  EUR05U31 
RETURN 

0110  COLL  ERROR! 101 
RETURN 

8117  COLL  ERROani) 

RETURN 

0124  COLL  ERROR! 24) 

RETURN 

EliO 


nnuL  so 

RNUL  58 
NNUL  57 
NNUL  50 
NNUL.  58 
NNUL  CO 
HHUL  61. 
NNUL  62 
NNUL  03 
NNUL  04 
«KUL  05 
NNUL  08 
NNUL  67' 
NNUL  00 
NNUL  69 
HHUL  70 
NNUL  71 
NNUL  72 
NNUL  73 
NIIUL.  74 
HNUL.  75 
NNUL  76 
HNUL  7T 
NNUL  74 
NNUL  79 
NNUL  00 
HHUL  81 
NNUL  82 
NNUL  83 
tmUL  84 
HHUL  03 
NNUL  83 
HHUL  87 
HHUL  88 


C 37  S6  SUBROUTINE  HOP  7 tO  73 

SUBROUTINE  MOP 

COMMON  / BLOCKR/HOOE.H,  KflRO (77) , KRRG, RRG, RRG2, NENCO (19) , KROENO 
I , NEWCQS  (19, 10) ♦KSRVE, NSRVE . NFLRC 

COMMON  / BLOCKD  / RC (2439)  .IRRGS (69)  .KIND (39)  .RRGTfi8(SlJ  .NRHRX, 

I NR0H,NC0L,NflRGS,VNXTH(5) 

OlHENSION  flRCS(l)  . 

EQUIVALENCE tnRGS  (1) ,RC  (2401)) 

COMHON/GLOCKE/NRNE (4) , LI ,L2, ISRFLG 
COHHON/SCRflT/fl (2400) ,NS 
DRTR  OME/1 . 0/, 2ER0/0, 0/ 

Cnmmm 

Cnmmm  THIS  SUBROUTINE  IS  CALLED  IN  RESPONSE  TO  THE  C0MMRNOS  HOEFINE, 

Cnmmm  RDEFINE.  M2ER0,  RZERO,  HERRSE,  RERASE,  HI DENT,  MOIRG,  RDIRC  AND  HT 

Cnmmn  L2=l  MDEF I ME. RDEFINE 

Cnmmm  L2=2  HDIRG.nOlflC 

Cnmmn  (.2=3  HZERO, RZERO, HERRSE, RERRSE 

Cnmmn  L2«4  HIOENT 

Cnmmn  L2«S  HTRRCE 

Cnmmm 

CO  TO  (100. 100. 180, 180, ISO, 150, ISO. 150. 160,250), L2 
100  IF (NflRGS.NE.4.flN0.NRRGS,NE.5)  GO  TO  10 
IF  (KIND  (NfiRGS) ,NE; 1)  GO  TO  3 
if  (Nnnns. eq. 4)  trrgs  (4)  =>irrgs  C3) 

CONSTtflRGS  (HRRGS) 

CONSTR-RRGS  INf-MGS) 

J-NRRDS-1 

105  CALL  CKIND  (J) 

IF (J.NE.O)  GO  TO  3 

>1  . v 

IF  (L2.EQ,  10)  J«2 
CALL  HTXCHKtJ) 

IF (J.NE.O)  GO  TO  17 
rot  I PI  RK 

IF (NFLRG.EQ, t)  RETURN 
JQ-IRRGStl) 

IF  (L2.EQ. 10)  GO  TO  260 
NnIRRGS (3) 

K»IRRGS (4) 

JR-JB 

00  120  KRal.K 
JCmJO 

oo  no  Nn»i,u 

RC (JC) -CONST  • ' 

110  JC-JCtl 

IF(Kfl.CT.N)  GO  TO  120 
RC (JR) -CONSTfl 
Jfl**JR*NRORM 
120  JD*J8nmt)M 

IF  (L2,E0.4,0R.L2.EQ.3)  GO  TO  190 
RETURN 

ISO  IF (NRRGS.NL. 3.RN0.NRRGS.NE.4)  CO  TO  10 
CONST-ZERO 
CONSTIWERO 


J»NRRGS 

IF(MflftGS.EQ.4)  GO  TO  105 
1RRGS14)»IRBGSI3)  - 
GO.  TO  10S 
160  CONST=ZERO 
CONST fi«0«E 
J-NRRGS 

IF  (NflflGS.NE.3)  GO  TO  17{J 
IRRGS  (4)*  IRRGS  (3) 

GO  TO  105 

170  IF (IRRGS (3) .HE. IRRGS (4)1  G0T03  M 
GO  TO  10S 
180  J“NRRGS-1 
C0H3T»ZEn0 
C0HSTRo2liB0 

" I F CKpRGS , HE . 4 . RNO . NRRGS. NE,  5)  GO  ttt  10 
CALL  ROflESS  (NflfiG3rH)  ' 

IF  !H)  180.11,184 
184  N»  I FlRGS  (3) 

OB  1*3  Hflal.M 
fl  (NR)  »RC  (H) 

106  HaH+1 

108  IF  (NRRGS, EQ. SI  GO  TO  170 
-TfffiGS(S)  a IRRGS  (41 

innns  (4)  =»irrgs  (3) 

GO  TO  10S 

iso  JBainnGSti) 

IF  (KINO  (NRRGSJ .EQ.O)  GO  TO  220 
CONST =ftrtG3  (NRRGS) 

00  200  Nfl=l,N 
nc  (JQ) aCONST 
SCO  JQ»JB*i*NROM 
RETURN 

22000  230  NR-l.N 
RC  (JB)  *R  (NR) 

230  JBaja»l»NR3M 
RETURN 

250  IRRGS  (7) -1  . 

IRRGS (8) ot 

j»nrrgs 

IF (NRRGS.  NE,  G.  RNB.  NflRG3.  HE. 5)  GO  TO  10 
ir  (NHnGS.EO.G)  GO  TO  10S 
innGS(G)«IRRGS(S) 

IRRGS  (5)  wlflfJGS  (4) 

IRRGS (4) « IRRGS (3) 

CO  TO  IDS 
260  TRRCEsO. 

*MUN0  (IRRGS (3) , IRRGS  WU 
00  270  Nfl»l,N 
TRRCE“Tf;nCE+RC  (JQ) 

270  JB«JD+NROHM 
ICXaJRRGS (5) 

RC  UC30 wTRRCE 
RETURN  '•> 


3 CfiLL  ERROR f3) 
RETURN 

ID  CALL  ERROR  (10) 
RETURN 

1?  CALL  ERROR (17) 
RETURN 

11  CALL  ERROR  (11) 
RETURN 


uuuu 
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coKiT/  euocJu!/ft(iOE»ti.K*nRO{77)4Knr?o.nnc.finG2.wsHcof  isi.ksoeno 

J .NEHCOGI  13.S1  .KSflVE.NSAVe.NFLflO 
CGIIHON  ✓ CLOCKt)  / nCie43'Jl,lfiRG5(6ai.KiHpi3S).nRQTBat51J.NRHflX. 
X NROfl.NGOL.HflRGS.VHXYZISl 
COHttOfl/SCP.ST/A l SOI 

DIMENSION  ARfJGt  11  

CaUIVfiL.EWCEl  ARGSI  1 1 .RCI2401 1 1 «( I3.IfiR&St3l  1 . 1 14. JARGst  4 1 1 


THIS  SUBROUTINE  IS  CALLED  IN  RESPONSE  TO  THE  COMMANDS  HOVE* 
DLGCXtRANSFFR • AMOVE  fiHO  HHOVE* 


ZF!  NASOS  .EQ.  0 1 00  TO  70 
X s 10 

JO  CALL  ERROR!  K 1 
20  RETUnn 
40  K a 20 
GO  TO  JO 
SO  K o 17 
GO  TO  10 
GO  K*3 
GO  TO  10 
70  J=3 

CALL  CKINOIJ) 

IFU.NE.OJ  GO  TO  40 
inscsm=i3 
IARG5(01«I4 
J=2 

CALL  HTXnffiCJl 

iru-ii  so .oo. so 
go  cna  plum 

inHFLAO.Efl.il  RETURN 
KnlAflOGUl 

oo  no  iai.14 

RK"t< 

00  100  Xtsl.IS 
AUli=RCtWU 
100  RKeNKtl 

CALL  GCWmil.21 

no  «sK*tiflo« 

KnlAROStS) 

00  210  1=1.14. 

KKalt 

CALL  6CRnHU.il 
00  200  11=1.13 
RClIffilsflCMl 
POO  KKttftIUl 
210  UafUNROW 
00  TO  20 
END 


HOVE  1 
HOVE  2 
HOVE  3 
HOVE  4 
HOVE  5 
MOVE  6 
HOVE  7 
MOVE  0 
HOVE  3 
HOVE  10 
HOVE  U 
HOVE  12 
HOVE  13 
HOVE  14 
HOVE  IS 
HOVE  16 
HOVE  17 
HOVE  18 
HOVE  19 
HOVE  20 
HOVE  21 
HOVE  22 
HOVE  23 
HOVE  24 
HOVE  26 
HOVE  26 
HOVE  27 
HOVE  20 
HOVE  23 
HOVE  30 
HOVE  31 
HOVE  92 
HOVE  S8 
HOVE  94 
HOVE  33 
HOVE  36 
HOVE  37 
HOVE  90 
HOVE  33 
HOVE  40 
HOVE  41 
HOVE  42 
HOVE  43 
HOVE  44 
HOVE  45 
HOVE  46 
HOVE  47 
HOVE  40 
HOVE  48 
HOVE  60 
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fiUOROUTIHE  KRAtSE 

COliKCN  / DLOCKfl/IUJOE  ,M .KARO  1 7? ) .ftflRG.fiRO.ARG2  .NEUCOl  13  i .KROEHO 
l.NEI!COGUO,5).KS.T/£.NSflVE.MFLflO 

COMMON  y CLOCK 0 / RCt2433UIfiRGSl63}.KIM0t33J,AKOTAB£511.NRHAX» 
I NR0N  .NC0L.NPRI5G . VIlXTEt  S X 

WMEH6ION  Rnest  n 
EQuivfn,EfieEtflnosa).riCt240in 
cottnoN/scRfiryfit  001 

C HOOK* 

C THIS  SUBROUTINE  IS  CALLEO  IN  RESPONSE  TO  THE  COMMAND  KRAISC. 

. C »mao* 

ISIZEoIAROSm 

C *o#b* 

C CHECK  NUMBER  OP  ARGUMENTS 
C BUQXtl 

IFlNmtGS.NE.7.ANO.flAROS.NE.6)  GO  TO  ID 

C MMiM 

C CHECK  TO  SEE  IP  ALL  ARGUMENTS  ARE  INTEGER 

C MMftB 

JsHARGS-2 

IFtKIN0tJl.NE.01  00  TO  620 
200  IAReStSl=IfiRGS(UJ 

iFUAstestaKLT.n  oo  to  3 

GrNARGS 
CAUL  CKINOtJJ 
IF(J.EA.O)  00  TO  000 
3 CAUL  ERROR  <31 
RETURN 

620  lARDGtdJaflROSIOl 
KlNOtJJiO 
00  TO  200 

C MMIM 

C CHECK  TO  SEE  IF  DIMENSIONS  ARE  CORRECT 

C BMB3 

000  IFtNAROS.Efl.O)  00  TO  HOD 

IFdflROStS)  .NE«IARGSt41)  00  TO  3 
lAROetSJalAROGtO) 

IfiROS  1 0 }sl ARGS17 } 

00  TO  UUO 
1100  IRKGSm&mUt! 

USO  IAR03t75aI01EE 
JARGruOlalSIEE 
0a2 

CAUL  NTXCHKt J) 

IF(J“i>  1200.3,17 
1200  WILL  PLBH 

3F(NFU1G.E0»IJ  RETURN 
C BDNBtt 

C OEOIN  MULTIPLICATION 
C MtMUUI 

«P0HsIAR0St3l“l 
JFtHPOW.CE.U  (10  TO  4000 
IFtlAROStt ) .GQ.JAROStGJJ  RETURN 
WttlAROSUJ 


mmkm 


I 


J6flVP*lflR08<Sl 

HRfll 

83 

08  4040 

MAI 

SB 

lesvaieavp 

HRfll 

07  , 1 

IPsIRP 

HRfll 

58 

08  <030  Jal.lSIie 

HRfll 

S3 

nc{i6flV)sac{jri 

urn  i 

60 

IPaIP*NRGSI 

HRAI 

61 

4030  ISflVsIKflVMIROU 

HRfll 

62  ! 

I8flVP«»IS£iVP*l 

HRfll 

63 

4040  IRPsIRP*! 

HRfll 

64 

RETURN 

HRfll 

65 

4050  DO  5040  Kel.HPGH 

HRfll 

68 

JSflVPsIflRGGlS) 

HRfll 

67 

IF(K.OT.J)  00  TO  <000 

HRfll 

60 

IRPelfiRGSU) 

HRfll 

63 

00  TO  4070 

HRfll 

70 

4060  IRP'-IflRGStS) 

HRfll 

71 

4070  00  30<0  Isl.ISIZE 

HRfll 

72 

IPalflROSll)  ■■■  ■' 

HRfll 

73  j 

ISRV  ssIOAVP 

HRfll 

74  S 

IZalRP 

HRfll 

75  i 

C Mkka 

HRfll 

76 

C 6AVE  ROU  OF  HATRIX 

HRfll 

77 

C B3B»a 

HRfll 

70 

00  4000  Jal.ISIZE 

HRfll 

73 

M«I1«RC(1ZI 

HRfll 

60 

HRfll 

01 

4080  CONTINUE 

HRHI 

02 

DO  0020  Usl.IGIZE 

HRfll 

83  J 

ICalP 

HRfll 

04 

RCCISflVlaO. 

HRfll 

85 

00  5000  JPal .IGIIE 

HRfll 

86  . 

RC(  ISRV  )sRC(  ISflV  UMM  laRCt  Id 

HRfll 

87  ! 

ICnlCtl 

HRfll 

80 

6000  CONTINUE 

HRfll 

83  t 

ICflV  alfiflV  ♦WROM 

HRfll 

so 

IPoIP»«R3H 

HRfll 

31  1 

G020  CONTINUE 

HRfll 

32  | 

ienvpnxs8vp*i 

HRPJ 

03 

IRi'nlHP*! 

HRfll 

34 

6040  CONTINUE 

iinn 

03  I 

RETURN 

HBM 

88  1 

to  cna  error!  tot 

HRfll 

«7  I 

RETURN 

HRfll 

17  CRU  ERROR!  17) 

HRfll 

80  i 

. RETURN 

HRfll  100  | 

m 

HltflX  101  1 

I 


« 


§ . 


j&hjw******  ***** 


SUBROUTINE  NSCRflH 

COHHON  / BLOafl/HaOE,n.KAROC771.RnR6.naO,fiR&2«HEHCOnai,KROEHO 
1 .HEKCDG!  10  .U1  .KGflVE.NSRVE.NPLAO 

' CCNHGN  / ELOWO  / RC124S81 .IflRGSlO31,KIN0t331.flRGTfia(S!l«RR«W. 
i HRCW,Rr,0U.tmCS.V»WYZ(5J 
C0HH0N/UL0CKE/wnilE{4)  ,U  .U.tSRPUO 
EQUIVALENCE  112.IAACS1211<,CI3,JAR0S(911 

THIS  SUSRGUTIHE  IS  CALLED  JR  RESPONSE  TO  THE  C0MI1AN06  P ARGUN* 
PfiRPROD#  RUG*  AVERAGE  AND  6UN« 

ELEN  a 0.0 

IFIHARG6.0E.21  00  TO  40 
10  CALL  EI!KCR!101 
RETURN 

0 CALL  ADRESSI  1 * J1  1 
IF(Ul.OT.O)  00  TO  00 
60  COLL  ERROR! 31 
RETURN 

0 CALL  OGRESS!  HAROS  a J2  1 
IF(Q2.LE.01  00  TO  50 
iFINRWDt.GT.Al  00  TO  140 
CALL  ERROR! 0 ) 

RETURN 

140  IF! HARW3.LT. 31  00  TO  200 
1FIL2.NE.GJ  00  TO  10 
NftROlsNAROS-l 
00  100  IcZ.NARGl  . 

IF  tlUHlUIl  .'It*  01  CO  TO  SO 
J F(1  ARCS!  1 1 .LE .0 .OR  • IflflGS ( 1 1 >0T «NROW  1 00-  TO  SO 
30  CONTINUE 

IFI 12 .GT .13.llN0*NAJt0G.CQ*4 1 CO  TO  SO 
CALL  PLBK 

IFtNFLfH>.EQ.ll  RETURN 
lFtNAR03.0I.4)  GO  TO  170 


C GUN  FROli  RON  •*  TO  ROM 

C 

daUl-J 

00  ISO  JJaI2.I3 
«JOU~J*UJ 

18G  ELUDsELCNeRCIOUJl 
100  CALL  VECTOR  t£LEU«12) 
RETURN 
C 

C . GUN  016CNETE  ROMG 

C 

170  00  100  I-2.MK01 
J a 01  ♦ JARCGJ  I 1 
ISO  ELEN  » ELEN  * RC<  «1  « 1 ) 
09  TO  ISO 
tOO  CALL  fLOK 

lFtNFLAO.ea*.U  RETURN 
JFtNAN/Ot.LE.OJ  00  TO  140 


NSCR  6 
NSCR  7 
NSCR  0 
NSCR  S 
NSCR  10 
NSCR  11 
HSCR  12 
NSCR  13 
HSCR  14 
HSCR  IS 
HSCR  16 
HSCR  17 
tlGCR  IB 
HSCR  18 
HSCR  20 
HSCR  21 
HSCR  22 
HSCR  23 
liSCR  24 
HSCR  26 
HSCR  26 
MSCR  27 
HSCR  20 
HSCR  20 
HSCR  SO 
HSCR  91 
HSCR  32 
HSCR  99 
HSCR  94 
HCCR  93 
HSCR  93 
HSCR  97 
HSCR  30 
NSCR  90 
HSCR  40 
•'SCR  41 
NSCR  42 
HSCR  49 
HSCR  44 
HSCR  46 
HSCR  46 
USCR  47 
HSCR  43 
I’lfiR  40 
HSCR  60 
HSCR  SI 
HSCR  62 
HSCR  03 
HSCR  64 


'Ate.. i*i»a  I,'.  ** 


F*«IM«sHRHflX 

c 

C PfiRSUM.  PARPROOUCT 

C 

IFt  L2  - 9 1 £20.  280.  90S 
220  J a L2  - I 

RCt  J2  1 n net  Ul  1 
iFtfmmw.ea.il  return 

09  240  I a 2.  NJU1AX 
J1  a J1  ♦ 1 
J2  n J2  ♦ 1 

JFC  J .EO.  0 3 00  TO  290 

RCt  02  1 c RCt  02-1  1m  RCt  01  ) 

00  TO  240 

290  RCt  02  1 s RCt  02  - 1 1 ♦ RCt  01  1 
240  CONTINUE 
RETURN 
C 

C RfIS 

c 

260  00  290  1 a l.NKHRX 

0 a 01  ♦ 1 

290  ELEIt  o ELOI  * RCt  J ~ 1 1 aa  2 
ELfc'H  o F62RTI CLEIt/FNRHRX 1 
00  TO  160 
C 

c AVERAGE.  SUH  ENTIRE  ROM 

C 

300  00  910  1 a l.NRHflX 

0 » 01  ♦ 1 

910  EUEH  « El.Ell  ♦ RCt  0 - I 1 
IFt L2.Ert.Sl  GO  TO  160 
ElXilnELEII/F'NRilflX 
GO  TO  160 
CIO 


HSCR  SS 
R6CR  88 
«8CR  87 
HSCB  50 
MSCH  89 
HSCR  60 
ItSCR  61 
HSCK  62 
HSCR  89 
nSCR  64 
H8CR  65 
NGCR  66 
HSCR  87 
HSCR  60 
HSCR  69 
I16CR  70 
H8CR  71 
NGCR  72 
HSCR  79 
HSCR  74 
HSCR  78 
HSCR  76 
nSCR  77 
HSCR  70 
HSCR  79 
HSCR  60 
HSCR  01 
H6CR  62 
HSCR  69 
HSCR  84 
HSCR  88 
HSCR  88 
HSCR  07 
HSCR  00 
HSCR  89 


; 
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SUBROUTINE?  MTXCHKfd) 

COMMON  / DUO  CKO  / K0tZ4S3ialE«t0Ste3i.KlN0(33).flR0Tfiat8n.NRWa. 
1 NROR.NCCL.NARBS.VWXYiUSl 


THIS  SUBROUTINE  IS  USED  TO  CHECK  TO  SEC  IF  SPECIFIED  HATRICES 

(IRE  legal. 

d OS  INPUT  a NO  OF  MATRICES  TO  OE  CHECKED 

IRRGSQ }«  in(K5S(SJ,....IflRG8(4*Id-im)  STARTING  RON  OF 
IARGS£2J..  IARG3t01,...,IARG3(4i»(J-nf2)  startiho  column  cf 
IAKG$(31.  IRR!V3t7}....,IflRG'3(.!n(J-l J»3)  NO.  OP  ROUS 
IAR03(41.  IARi5S(Dl.....If)RGS(4a(J-l)»4)  (10  OF  COLUMNS 
UPON  RETURN 

daO  IF  ALU  HATRICES  ARE  IN  HORN  SHEET 
UNO 

IARG3(II.IAR0B(S)...*.Ii1HCS(4a(d>n«n  WILL  CONTAIN  STARTINO 
ADDRESS  OF  MATRIX 

d AT  ZERO  IF  MATRIX  IS  HOT  IN  WORK  SHEET 

dal  SOME  I ARBS  ARE  NEGATIVE.  da2  MATRIX  TOO  010  FOR  WORKSHEET 

d0s4«d 
d a 0 

00  100  lal.JQ 

IFdAROStI J.DT.Ol  00  TO  100 

da] 

RETURN 

CONTINUE 

00  ISO  Icl.dQ.4 

IFI IARB3( 1 )*lARCSt I 421*1 .OT*NROW3  GOTO  130 

iF(iA(tosn»n*in80S(i«aM-or.NCOL)  oo  to  iao 

KlNOtl.DaO 

CALL  AORESSa.l.dCl 

IHRMmadUIRKliSm-1 

RETURN 

da2 

RETURN 

ENO 


HAT 

HAT 


me 

KTXC 
MTXC 
MTXC 
HTXC 

nnc 

HTXC 
MTXC 
MTXC 
MTXC  10 
MTXC  11 
MTXC  12 
HTXC  13 
MTXC  14 
MTXC  IS 
MTXC  10 
MTXC  17 
MTXC  10 
MTXC  10 
MTXC  20 
MTXC  21 
MTXC  22 
MTXC  23 
MTXC  24 
HTXC  25 
MTXC  26 
liTXC  27 
HTXC  23 
HTXC  20 
MTXC  30 
HTXC  31 
HTXC  32 
(ITXC  33 
HTXC  34 
HTXC  35 
HTXC  36 
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mjBsmjTJue  kxtx 

CCHHOH  / 0L0r.Ka/H0!lC.H.Rf!R0C?7].HflR9,BRO4nRO£,tlE»fC0(10J.KBUei{lJ 

i .lioicosi  i o . a i .ugove . Keavc.NFuio 

CfllMl'M  / RLOCKD  / R(U  2438 i • IflKGSt 89 ) «K1ND( 331  «0RGTAG(S1  } •HlttU13C« 

1 NROW .NCOL . N0SC8. VHXYH (5) 

COHHCN/ClCCKS/NfMEC  4 J .LI  .L2.ISKOG 

cotntoN  / blochf  / iiciop 

COttltOfl/S GR.1  T/fl  t SO) 

d ■ 

C THIS  SUBROUTINE  IS  USED  TO  EXECUTE  THE  COR1UWI33  1UXI')  <UtO  MtJ'XJ. 
ft  L2  a l ~ HtXX’J 

C U a 2 - MtX'X) 

f MUUiB  * 

C CHECK  FUR  CORRECT  NUH3ER  OF  RRfUMENTS 

C OEGIOS  WHETHER  COilKOND  Tfi  HtXPXM  OR  HtX'AXl 

ft  12  a 9 HEADS  IttXRX*!  IZ  a 2.  WINGS  .ftT,  6 KEITHS  IHX'RXl 

ft  BM»9 

GO  TO  n00.10.2a.40.40.f5a.60l.La 
IG  IF(  NflfiCG  -LE.  0 I GO  TO  100 
20  L2  = 4 - L2 
COLI.  TfiflilGF 
RETURN 

40  COLL  K0AHA0 
RETURN 

00  CALL  ASYVEC 
RETURN 

100  XFTNflSOS  .HE.  6 .OHO.  MUMS  .HE.  0 1 00  TO  210 

ft  BIUBM 

ft  CHECK  TO  GtlC  IP  (ILL  OROUHEOTS  USE  IHTEOtRfi 
ft  HWtlUi 

JsHHRCS 
COLL  CKlNOtd) 

IF(«i.llt£«01  00  TO  220 
6 eihmmp 

ft  CHECK  TO  6EC  IF  DIMENSIONS  ARC  OUT  OF  RANGE 
c caiTTUTc  AGaseasco 

ft  VWBK 

IF(  ftmCC.Efl»  6 I CO  TO  120 

iokc>(oi  u imiconn 

JPR031BJ  B IfttCSUI 
XRAOOI4I  « IfflMtttSI 

120  lft«ft5(0)«10rtCSCL2421  I 

mSAACSIttl.LE.lOl  00  TO  ZOO  • I 

CULL  nttiOBf£4l  i 

ttCTUHH 
200  O'* 

CALL  MJtCHKIdi 
lFld-1)  2C0.  220.  240 

CIO  COLL  atiWAliOJ  * 

ItEfURfl 

220  COW.  fSMKIttt 
Ht'lUhV* 

240  COLL  CiLiO.’iU’IJ  ‘ I 


RETURN 

tea  cfiu  push 

XF(HFLfta.ec.*i  return 
XF{l.2«En.2J  00  TO  320 
IPaXAHGStSI 
JP«sIAR6S(4X 
SAo»:*imon 
IROQZal 
00  TO  340 
StO  XPainR63(4X 
JPnXAftGSd} 

XAOOJsX 
XflDOEaNROII 
340  IflPsIflRGSm 
00  440  KaX,IP 
inf sionosc x ) 

XCcl 

00  420  Xai.XP 

A(ICl=Q» 

IRsIflP 

IflsIBP 

00  400  OsX.JP 

flUC)=RCIin)uRC£IO)  *0(10 
XfloJRdnODl 
XB«X3*Ifi001 
400  CONTINUE 

iflpciflp*inoo2 

ir.sic+x 

420  CONTINUE 

I 0Ps I DP* 10002 
440  CALL,  CC0ni1(K'2) 

C ***** 

Q MOVE  FROM  SCRATCH  AREA  TO  ©IOIWO? 

C **«« 

XC  e IflROOt  6 > 

00  520  I«X«If 

I6»l 

CALL.  6CflAH(I.ll 
00  000  JaX.XP 

RC( JCIsOtlS) 

I8»I8*I 
ICttXCtX 
800  CONTINUE 

IC  a IC  ♦ t NROH*NCT0P-l  I - I? 
820  CONTINUE 
. RETURN 
-■  END 


HXTX  68 
HXTX  86 
HXTX  67 
HXTX  80 
HXTX  39 

hxtx  co 
hxtx  ei 

HXTX  62 
HXTX  63 
HXTX  64 
RXTX  65 
HXTX  66 
HXTX  67 
HXTX  68 
HXTX  69 
HXTX  70 
HXTX  7X 
HXTX  72 
HXTX  73 
HXTX  74 
HXTX  75 
HXTX  76 
HXTX  77 
HXTX  78 
HXTX  79 
HXTX  BO 
HXTX  01 
HXTX  82 
HXTX  83 
HXTX  84 
HXTX  85 
HXTX  66 
HXTX  87 
HXTX  88 
HXTX  09 
HXTX  80 
HXTX  OX 
HXTX  92 
fXTX  03 
HXTX  04 
I.XIX  03 
rXTX  80 
HXTX  07 
HXTX  08 
HXTX  00 
HXTX  XOO 
HXTX  101 


UUUUUUUUOUOOUUUUUOUOUUUCUUUOU 


euoRouruiE  nnaheuiahei 

COHttGH  / BLOC:Lfl/MOl1E»l1,KflRO(77),KRRO.flRO,BR02,HEHCOU3J.KROENO 
l.NEHCOfiUa.Sl.KSAVE.NSAVE.NFLAB 
oiwewcioH  mem.niscioi 


hnah 

NNAH 
NNAH 
NNAH 
NNAH 

C THIS  8U0RCUTIKE  ASSEMBLES  fl  HRilE  UP  TO  THE  FIRST  NON-LETTER  OR  UP  TO  WHAM 
C CIX  LETTER.  WHICHEVER  16  FIRST*  THE  INDEX.  H.  IS  INITIALLY  POINTING  ATNNAH 
C THE  PIRST  LETTER.  IT  IS  LEFT  POINTJNO  AT  THE  FIRST  NON-LETTER.  WISH 


C 

c 


MAN 
Him 

NHAH 

*0  NUMERIC  no  USED  BY  OWUTAO.  NHAH 

NNAH 


TO 


tf) 

90 


40 


THE  FIRST  THREE  CHARACTERS  DO  INTO  THE  FIRST  HOKO  OF  HAKE 
THE  SECOND  THREE  CHARACTERS  GO  INTO  THE  SECOND  WORD  OF  NAME 
CONTINUE 

CONVERSION  TABLE  FOR  ALPHABETIC 


A 

B 

C 

0 

E 

F 

0 

H 

X 

0 

K 

L 

K 

N 

0 

P 

a 

R 

6 

T 

u 

V 
N 
X 

Y 

X 


00  10  l«l.0 
itiGcmso- 
UO  20  IkI.O 

uKAaonti-a 

IFIL.LM -OR  .L.CE  .27)00  TO  40 

mscuisL 

tUHfl 

IPIKRR0IH1.lt. 10. OR (KAROCItl .02*38)00  TO  40 

KaH+1 

00  TO  90 

NAME!  1 IsHlfiCl  9 1 *Wnt  HI  SC  ( 2 1 *27»HI8CI  1 1 1 

NAHE(2)BllI3C(6K1<UmSC(3)«27siH16Ct4)) 

RETURN 

CNO 


NHAH 

(NAN 

.mn 

mu 

mm 

NI1AH 

HNRH 

NNAH 

NNAH 

NNAH 

NNAH 

NNAH 

NNAH 

NNAH 

HUM 


1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 


723 

27 

1 

NNAH 

14 

1460 

64 

2 

NNAH 

15 

2107 

01 

3 

. NNAH 

16 

23)6 

109 

4 

NNAH 

17 

3045 

135 

6 

NNAH 

16 

4974 

162 

a 

NNAH 

13 

5109 

109 

7 

NNAH 

20 

8932 

216 

0 

NNAH 

£1 

6061 

249 

9 

NNAH 

£2 

7230 

270 

10 

NNAH 

23 

6019 

297 

11 

NNAH 

24 

0749 

924 

12 

NNAH 

23 

9477 

951 

13 

HHflH 

26 

10203 

370 

14 

NNAH 

27 

10335 

400 

10 

NNAH 

£0 

11094 

432 

10 

NNAH 

29 

12993 

450 

17 

NNAH 

90 

13122 

483 

10 

NNAH 

91 

13051 

613 

19 

NNAH 

92 

14580 

640 

20 

NNAH 

33 

10309 

667 

21  - 

WNAII 

94 

1G0S3 

604 

22 

NNAH 

35 

1Q707 

621 

23 

NNAH 

90 

17400 

648 

24 

NNAH 

97 

18225 

675 

..  23 

NNAH 

38 

10084 

702 

80 

<NAH 

39 

40 

41 

42 

43 

44 
40 

46 

47 
40 
49 
60 
61 
62 

63 

64 
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FUNCTION  H0N3UUII  NONO  I 

CflHHON  / ELCCUn/HCDC.H «KflRO(  77 J .Kflft&,flRO«flHC2  .NCIICOf  19 ) #KROEND  MONO  Z 

l.NEMCOSUD.Sl.KCnYE.NGnVE.NFLAO  MONO  3 

C THIS  FUNCTION  CUUPKOCHRN  SCANS  THE  ARRAY  KARO  STARTING  WITH  THE  NONB  4 

C H'TH  ELEMENT  UNTIL  A HON-SLANK  CHARACTER  IS  POUND.  U HILL  POINT  MONO  5 

C AT  IT  AND  THE  VALUE  OF  N HILL  BE  RETURNED  RS  THE  FUNCTIONAL  VALUC.N0N8  6 

C NONB  7 

1 triKRRtUHi.HE.44100  TO  2 HOJIB  6 

H*lt*l  ’ HOHB  & 

SO  TO  I MONO  10 

£ HONBLAaHAROtH)  NONB  11 

RETURN  NONB  It 

END  NONB  19 


I 
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0MC0NV 


LOO? 


TROLL 

a 

«i 

s 

EERO 


6TRRT 
U6IHO  b.15 
SAVE  (14.12) 

L 9,0(.l)  ADDRESS  OF  NHCO  IN  3 

L 4.41,1)  flOOREGG  OF  KiU)  IN  4 

NVC  0(80,41.0(3) 

TR  0(60.41 .TR3LC 
LR  8.0 

LR  0.4 

LR  7,1 

L O.0(.l)  ROORESS  OF  KRDENO  IN  0 

L 11. Ot^))  UKOEiiO  IN  11 

LR  0.11 

SR  6.7  RROEND  - I'M  0 
HR  10.0  4sit!N1£?I0  IN  11 

SR  11.0  (4-l)aKR0EN0  IN  11 

!C  5.0(0.41 
ST  5.0(11,4) 

SR  11.0 

OCT  6. LOOP 

!C  5,0(0.41 

ST  5.0(11,4) 

RETURN  (14.12) 

OC  2Cf,X,2E* 

ORO  Tn(lLE*C*fl* 

OC  SRU(tt~ft*10) 

ono  TABLEtCM* 

OC  3RL1(k-J*19) 

ono  TflULEtC’S’ 

OC  0nU(tt-6»28) 

OHO  TRBLE+C'O* 

OC  IORLKm-EEHO) 

ORO  TflOLE*C*  • 

OC  OLl (44) 

ORO  TnCLEtC’.’ 

OC  OLH  37.40,41 ,30) 

ORO  TOOLtVC'n* 

OC  flLl  Hi), 42, 46,48*39,39) 

ono  TncLt’+n*,' 

OC  01.1(43) 

ORO  T«0LE*1£D 

OC  ALlt40«4S) 

END 


OHCO  1 
OHCO  2 
OHCO  9 
OHCO  4 
OIICO  5 
OHCO  6 
OHCO  7 
OHCO  0 
OHCO  0 
OHCO  10 
OHCO.  11 
OHCO  12 
OHCO  19 
OHCO  14 
OHCO  15 
OHCO  16 
onco  17 
OHCO  18 
OIICO  19 
OHCO  20 
OHCO  21 
OHCO  22 
OIICO  29 
OHCO  24 
OHCO  25 
OIICO  20 
OHCO  27 
OHCO  26 
OHCO  29 
OHCO  90 
OHCO  31 
OHCO  32 
OHCO  99 
OIICO  94 
OHCO  95 
OIICO  96 
OHCO  97 
OHCO  36 
OIICO  90 
OMC'1  40 
OHC)  41 
OHCO  42 
OHCO  49 
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SUBROUTINE  OMNIT 
EXTERNAL  PFINT.EOnrHT 
. COHHQH/KPLOTyMf  RfillE.KNND.SIZE.SPACE 
COMMON  / eLPaM/MOE.H.KnaOt77).KARG.RRO.fiR62,NE«COUai.KRDEMO 
1 .NEKCOS!  18.3  > .KSAYE.NliAVC  .NfT.AO 

COtlHON  / 8L0CK0  t KC(2433),IRRGSt63),KIH0C39).nRCTfi3!SlI.NRtUUC. 
I fIROH.NCCL  .HAROS  .VNmiS) 
cottKOiJ/Q«s/Na»OM.jnmi.miflii5 
COMlOil/LLOCKEyNttHM  4 1 ,L1  .L2.ISRF10 
COMMON  KLY.IOVLY.ITYPE 
dimension  TEXT 1 2 ) 


THIS  GUOROUTIME  16  THE  OHM  TAB  DRIVER  SUBROUTINE. 


NODE  s 1 - INTERPRETIVE  NOOE 
NODE  o Z - ORTA  HOGS  (READ  AND  SET) 


THE  ARRAY  KARO  CONTAINS  THE  NUMERICAL  REPRESENTATION  OF  THE  INPUT 
CHARACTERS.  AS  FOLLOW i 

0 a 0.  Is  1*  ETC..  0 a 0.  A = 10.  Q » 11.  ETC.  Zb  33*  / a 36 
• ■ 37.  *■  e 33#  4 a 33#  > b 40.  ( « 41*  ) s 42#  . a 43 
OLAHK  - 44.  m • 45.  0 AND  OTHERS  a 46 

N0UHo4 

KETs-l 

HASKA-i2l<74l01i0 
10VLV  a 1 

call  ccKcateoonm- 

CALL  OCnf«(MASKn.PFI..n 
CALL  0ISPLYU50) 

NAME! 11-0 

«AHE!2)aO 

«RMEI3)sO 

NAMEC4)aO 

NAROSaO 

JaO 

IK REV  -EO.  31)  RETURN  i 

IFtNfLAO.Efl.l -OR. LI .EQ.O)  CO  TO  523  i 

IF(HOCE.Kn.2.f)NI).JROII.LT.OO.RNO*lSRFLO.CO.O)  CO  TO  S24  i 

CALL  mSS’Tij)  I 

CALL  GftOPUI! ’READY *.D»4S26)  I 

CALL  AMPLY!*  * *1.4625)  * i 

CALL  AMPLY!*  M.4$2«i  ' . ' 

CALL  OfWPLYI*  *. 1.432(5)  I 

CALL  OJWPLYI*  * *1*4525)  i 

CO  TO  £26 

CALL  05RASUU0)  I 

00  TO  6260  ' 

JJsOROlUl  . I 

CALL  QimVI*  *.1.4523)  I 

CALL  PUKCPTO)  .1 

HRITFdlOilN.UaO)  00  I 

Ffl6iwri,r«w*»i3*'»*)  * i 


oon  nnnnnnn  on  nonon 
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.1.45251 
'.1,45251 
'.  1.45251 
M.4G23) 


CALL  FETCHCTCXT .NCP.452S) 

CALL  GRnrUYfTEXT.YtCF.45ZS) 

CALL  OROPLYf  • * 

call  caopLYt • 

CALL  GADFLY I ' 

CSLL  0R0FLYC 1 
525  CALL  (WAIT 

IFCJTYrE.NE.il  GO  TO  04 
IFCKEY.LT.41  CO  TO  53 
IFCKEY.LT. 1G1  CFLU  IU1KKDC4S251 
JFCKEY.NF.22)  CO  TO  53S 

CAUL  6C0PLT  C O.tfr'ORHE.KHNO.SIZE. SPACE.  1NTCQ.IRC00E) 

CALL  CCflPLT  U.10UH1 
CALL  CCflLH 
GO  TO  525 

53  JFtKEY.Efl.3)  CALL  C0IMNDC452] 

IFCKEY.EQ.21  CALL  PROanHCO) 

535  IFCKEY.E0.301  CALL  0ISPLYC452) 

IFfKEY.Ea.3U  RETURN 
DO  TO  52 

54  CALL  INPUT 

6CANNINO  BEGINS  WITH  THE  THIRD  CHARACTER.  THE  FIRST  THO  ARE  D'JHHY 
TO  KEEP  THE  PK003AH  OUT  OF  TfCOUULE.  GCANNINO  TERMINATES  1IITH  fl  0 
A 0 ICRS  BEEN  PLHNTEO  IN  THE  IKRCEtUMl-TH  POSITION. 

NFtnGaO 

Y»=j2 

65  IMUI 
K=KAKO(!1) 

IF(iC.0E.3P}IF(K-4G155.S0.55 
IFCK.GE. 10)00  TO  70 
IFft1CDE.Ea.2l  00  TO  GO 
CALL  ERR0RC71 
CO  TO  52 

U IS  POINTINO  nr  THE  FIRST  LETTER  Oft  THE  CARO.  1IS6EH0LE  NAME. 


10  CALL  H'lAttECHRllEf  1 1 ) 


CHECK  THE  FIRST  NAME  FOR  SPECIAL  NAMES... 
OtUtITAD.STOPyROU 

0NN1TA0 

‘IFf  NAHEf  1 1 .HE. USDS. OR .NAhEf 2 1 .NE.7102 ICO  TO  07 
CALL  XOIHJIT 
CO  10  GO 

STOP 

. 67  )F(NflUE(U.{tE.)440S.OH.HAHE(2).HC.HC04)00  TO  00 
RETURN 

C 


OMNI  55 

omti  so 

OHNI  57 
0IIN1  5S 
OHNI  53 
OMNI  60 

ohm  61 

OHNI  52 
OHNI  03 
OMNI  04 
OHNI  65 
OHNI  60 
OHNI  67 
OHNI  60 
OHNI  63 
OHNI  70 
OHNI  71 
OHNI  72 
OHNI  73 
OMNI  74 
OHNI  75 
OHNI  78 
OHNI  77 
OHNI  70 
OHNI  79 
OHNI  80 
OIIM*  81 

omil  82 
OHNI  83 

onctr  84 

OHMT  05 
OHNI  OR 
OHNI  07 
OHNI  08 
OHNI  83 
OHNI  90 
OHNI  81 
OHNI  82 
OHNi‘  03 
OHNI  84 
OHN,  83 

ami;.  00 

OHNI  07 
OHNI  38 
OMNI  09 
OHM  100 
OHNI  101 

omti  102 

OHNI  103 
OIUII  104 
OHNI  105 
OHNI  100 

OHstr  107 
otua  100 


i :; 

i 


ROM 


' 80  IFCWRnkUiJ.Ht\13SS0.CR,KaHE(2J.NS.ai  M TO  63 
JpniCQ2.tlc.2.0R.10RPL&«HL.G>  00  TO  880 

884  KuKflRUCW)  „„„  „„ 

IFIK.GE.101  IFtR-401  803.887*003 
CULL  AflROS 
JROllsAROl . 

GO  TO  203 
805  n=lltl 
GO  TO  004 
80S  COLL.  ERROR! 71 
GO  TO  32 

007  CRLL  ERROR! 10) 

00  TO  528 


C 

c 

c 

c 


•I  rg  poihTINO  FIT  THE  FIRST  NOfl-LETTER  AFTER  HARE.  LOOK  FOR 
POSSIBLE  linns  QUALIFIER  OR  ARBUilENTS  OR  UNO  OF  CARD* 

08  RsURROtliJ 

IFCR«LT*33)IFCK~IOll00«80*30 
inK.EO. 40)00  TO  ICO 
JFIK.E0.48 >03  TO  200 
HalU> 

CO  TO  08 

J A LETTER  FOUNO.  AUGLACLE  SECOND  WANE  tCOMUWO  CURLIF1ERI* 
c 00  CALL  UHUtEttttMb't&M 

C Wi~CK  SPECIAL  CASE  OF  HAKES  UMfi.  HI*™).  MWU  M***> 
C 

u 


SKIP  cut  CHARACTER  D IF  FIRST  RAHE  *!H  1 

m hmieui  <wa.  3477  1 h « # ♦ i 

CO  TO  103 

6CAH  FOR  WRCUREIITG  WiO  ZM  OF  CARO 


C 

c 

c 

c 


CO  H»3 

100  d-J*I 

09  TO  102 

101  *•!}»! 

102  KcKARDUU 

iriU.CC.KDlFUMOJiiOl.iSO.iDa 


tMiiwn  fimrST  AKCl'tlCHT.  IF  RAS0  SETl*M>SO  a 0.  tUUJOSR 

SS3w  »™«»  “ (*»,(•*.  v am  * -t. 
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cfii.L  iwwca 
iF|Kfliil>H;O.J<33#103 
103  RROTttflU'lsO* 

CO  TO  110 


CRN I 103 
omu  no 
oiuu  m 
omit  liz 
OMNI  113 
OrttU  114 
0I1NI  115 

muii  no 

ohm  U7 

OIWI  118 

omn  no 
own  12a 
omn  121 
minx  122 

own  123 
OI'.NI  124 
OHM  125 

omit  126 

OHM  127 

amn  120 
OHM  123 
OHM  130 
OHM  131 
UiliU  132 
Omil  133 
mini  134 
omn  iso 

mini  130 
OlilU  137 
OMNI  130 
mini  130 
OUIII  140 
or.u  I 141 
OHM  142 
OIUU  143 

omn  144 
omil  148 
OHM  140 
mini  147 
omn  140 
mini  mo 
mini  ion 
mini  i8i 
mmi  tot 
OHM!  183 
OKSII  184 
EUROROmil  183 

mini  loo 

OiUll  107 
Oil!)!  180 

mwi  iso 

OtlHl  100 

mini  toi 

mi  102 


is 


1 

I 


I 

I 

| 

I 


i 


4 


ARGUMENT  16  AN  INTEGER.  ADO  A DIAS  OF  8192  THEN  CHECK  THAT  IT  18  OMNI  163 

.GT.  0 OMNI  164 

OMNI  103 

RRG=fiRG*t3192«  OMNI  160 

lF(fl,'iG.GT.0.)OO  TO  110  OHNI  107 

CALL  ERROR ( 10)  0HN1  109 

CO  TO  CO  OMNI  100 

ARGrna(j)=flRG  onni  no 

HAROS  s HAROS  ♦ 1 OMNI  171 

GO  TO  100  OHNI  172 

OHNX  173 

ASTERISK  FOUND,  CONVERT  0H.1I  174 

OMNI  173 

IF  BRACKETED  OY  SINGLE  ASTERISKS.  QUANTITY  IS  TO  BE  USED  AS  A 011NI  170 

FLOATING  POINT  ARGUMENT • IF  BRACKETED  BY  DOUBLE  ASTERISKS.  QUANT ITY0HN1  177 

IS  TO  BE  TRUNCATED  UNO  USED  AS  AN  WILDER  ARGUMENT ..  OHNI  179 

OMNI  179 

KAR0=1  0(1NI  100 

HaH*l  OMNI  101 

IFIKARD(M) .HC.401GO  TO  12S  OHNI  102 

KARO.-O  OMNI  103 

Hsll+1  OHNI  104 

CALL  ASTER  OMNI  103 

OltilX  100 

THE  TERMINAL  AGTERICKCS)  NAVE  DEEM  CHECKED  TO  ME  THE  GAME  AS  THE  OHNI  107 
INTITAL  GET  (IF  HD  ERROR  1 AND  H IS  POINTING  AT  THE  FIRST  CHARflCTESOMNI  100 


AFTER  THE  LAST  ASTERISK.. 

KARO  RETURNED  AS  1 ts  ERROR  FOUND 

2 a FLOATING  POINT  CONSTANT.  2.0. 
8 « 1NTC0EI1  NAMED  VAR  I DOLE.  2.0. 
4 a FL.  FT • NAMED  VAR! ROLE.  2-0. 

6 a INTEOSR  RON- COLUMN.  2.0. 
0 a FL.  FT.  ROW-COLUMN.  2.0. 

7 a STRING  OP  ASTERISKS  Z.l). 


2.0.  ttPNRHflXnx 
2.(1.  uMRHAXw 
2.0.  «a3.20*» 
2.0.  ul.Zu 


l .[)•  »UM 


A STRING  OF  THREE  OR  NONE  ASTERISKS  IMPLIES  -THRU- 
EXAMPLE . * 

ERASE  1 2 3 4 12  13  14  13  10  20  IQ  EQUIVALENT  TO 
aiASC  1 oaa  4.  12  &uj  10.  20 

oo  to  ( no.  wo.  no.  in:;,  un,  140.  iso  I,  kaso 
AROrnilt  .1  )e-g  .o«RC-Fl.Oai  WARC-31 
DO  TO  US 

AROTfl’U  Ml!:-  ( AHO.SgCfl . 1 
.AR02«fiR0n*tmi2. 

IF(lt»f<O.Ea.G)ARD2a-lWC2 

Ja.I.l 

ARGIAOIOIaORCZ 
00  10  1)5 

IFI  J .or.  t ) GO  TO  155 
CALL  fcrivO.u  244  1 
CO  TO  102 
AHGIflOt  J ) a -1* 


OMNI  109 
OMNI  KMJ 
OMNI  )01 
OHNI  132 
OHNI  199 
OMNI  194 
OMtll  1.90 
OMNI  190 
OHNI  137 
OHNI  190 
OHNI  189 
OMNI  200 
©NIL*  201 
OHNI  202 
OMN  203 
CNN’  204 
OHNI  203 
OMNI  206 
OHNI  207 
OMNI  200 
OHNI  239 
OHNI  210 
OHNI  211 
OMNI  212 
OHNI  213 
OHNI  214 
OHNI  215 

mi  210 


l 1 

I 


263 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cr 

c 

tr 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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AROTflQ  SETUP 


TO  BE  LESS  THAN  -SI  01. 

IF  ENTRY  .Ca.Q.  THE  NEXT  ENTRY  IS  ft  FLOATING  POINT  CONSTANT. 

IF  ENTRY  .EQ.  -1.  EXPANO  FROM  PREVIOUS  ARGUMENT  TO  ROLLON I NO 
ARGUMENT  { ASTER  I Git  STRING  FOUND  I 

IF  ENTRY  .LT.-l.  ARGUMENT  IS  A VflRIROLE.  8ET  SIGN  POSITIVE  AND. < 
CONTINUE 

IF  ENTRY  .LT.  14.  IT  IS  ft  NAMED  VARIABLE  REFERENCE  HUNGER 

2.3  NftltftX 

IF  4.5  V 
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C 

C 

C 

C 

C 

C 


too 


£02 


£04 

203 


GO  TO  JOO  OMNI  211 

OMNI  216 
OhNI  219 
OllNI  £20 

IF  ENTRY  .OT.  0,  IT  IS  AN  INTEGER  COMSTAR f (2.0.  COLUMN  NSiMHEFt ) OMNI  221 

TO  WHICH  A 8 1 AS  OF  0132  HAS  BEEN  flOOEO.  THIS  IS  Ffl  Eft*'  TttflT  ft  OMNI  222 

NEGATIVE  INTEGER  ARGUMENT  MAY  NOT  DE  EXPLICITLY  OIWN  ON  OJOIFIEO  OMNI  223 

OMNI  224 
OMNI  225 
OMNI  220 
OMNI  227 
OHNI  220 
OHNI  229 
OHNI  230 
OMNI  231 
OHNI  232 
OMNI  233 
OMNI  234 
OMNI  235 

0.7  N 10,11  Y OMNI  233 

0.3  X 12.13  £ OMNI  237 

OHNI  230 

V.M.X.Y.2.  ORE  FOR  PROGRAMMING  CONVENIENCE  ONLY  AND  00  NOTOHNI  233 
AFFCCT  THE  OPERATION  OF  OHNITAfl  OMNI  210 

OHNI  241 

IF  ENTRY  16  EVEN.  CURRENT  VALUE  TO  8E  TRUNCATED  AND  U5E0  OMNI  242 
AS  AH  INTEGER  ARGUMENT . GIlHJ  243 

IF  ENTRY  IN  INK).  THE  CURRENT  VALUE  IS  TO  BE  USED  US  A UHNI  244 
PLOWING  POINT  RROL'UEHT - OMNI  240 

OMNI  246 

IF  ENTRY  .OT.  10.  IT  IS  ft  WORRAMEGT  REFERENCE.  INOW.COUJJIHJ  TO  OMNI  247 

Miiir.it  a (tins  of  to:oo.  has  ceen  adoeo.  on.ni  240 

ENTKY  - 02(61  I!  Rftlt  HDrlRER  OMNI  249 

HOST  NEXT  ENTRY)  » UCL'JIUl  HUNGER  TO  NH1CU  A 01A3  OF  0132.  OMNI  250 
»IAS  UEEN  A00E0.  OHNI  2S1 

OhNI  2S2 

IF  NEXT  ENTRY  |Q  NEGATIVE,  HOitltSHEET  CONTENTS  ARE  TO  BE  CNtll  263 
USfiU  ns  A I’LCAflM  POINT  CONSTANT.  IF  ♦.  It^.'MPJHEEr  VALUE  OMNI  234 
10  OE  ir.tMt'iirtO  AMO  USED  f.S  AH  INTEGER  ARUJAENT.  OHNI  263 

OMNI  250 

IFIR.NE.40IC1  VO  101  OMNI  2G7 

OHNI  260 

END  OF  CARO  FOJWO  ( 4 ENCOUNTCREOl  OMNI  263 

OU;»t  260 

IF(HU0E.HE.2*UN.IMUiE(  1 1 .Hi' .0)  06  TO  CIO  OMNI  201 

OHNI  262 

IN  INPUT  K3DILAN0  NO  PU6013LE  NitilE.  RETURN  TO  SET  08  HEAD  CUUIINC  Oil'll  203 

OMNI  2C4 

CALL  FXPAM31 J.flHOTAUI  OMNI  263 

•russao.Lo.oi  oo  ro  204  . osni  200 

CALL  BETH.  OHNI  ZC7 

Oft  TO  203  OHNI  263 

CALL  A* 10(1  OHNI  209 

IftHFLAG.EU.S.PR.KEY.CG.Oll  00  TO  SO  OMNI  270 


JA 

I 


3 

‘I 


KSflVCVrtSflVE+1 
00  9002.^11^1.19 

9002-«EMC0G(  111  .fcSfIVEltiMLHCDl  1111 
IFtKCnVEAT.S}  00  TO  SO' 

IFUOVLY.OT.40)  00  TO  GOfffl 

3005  water NSHVflQVl.YJ  MEMCCS 
KSflVfaO 

00  TO  50 

3006  coll  t'ltcrrnut  i ) 

jet  key  .ea.  on  return 

IOVLY  a 1 
CO  TO  9005 

c 

c tarn  up  tome  tfiMO  possiuix  «kmh.ikiw)  m uictio.'wiy.  return 

C COORDINATES  OF  CM  TRY.  IF  U a 0.  NAME  NJf  FOUND 

c 

310  COLL  LOOKUP 

lFtLl.fli-.fi)  03  TO  220- 
1F<IICCIUE».2)  00  TO  202 
COLL  EfttWfll 
CO  TO  00 

c 

c me  etiufio 

c . 

820  HODC=t 

222  CALL  EXPflNOtJ.ftSOTflO) 

CALL  VtCtlTC 

co  Troa- 


0ON1  211 
OttNl  272 
OMNI  273 
OlIRl  274 
OtIHl  27S 
OMNI  276 
OMNI  27.7 
OMNI  270 
OMNI  279 
OMNI  230 
OMNI  2ffl 
OMNI  20 2 
OMNI  203 
OMNI  204 
OMNI  80S 
OMNI  200 
OMNI  807 
OMNI  2U3 
OMNI  200 
Oil'll  2!Hl 
OUtll  291 
OMNI  292 
OHM  293 
OhffI  294 
Omil  29S 
OMNI  296 
OW»l  207 
OMNI  233 


jhSWM'UMMMl'.Ulyjl 


SUBROUTINE  PDHOTE 

connotl  / t)lOCiUVi13nE.B.«RRt)n71«KaR&»nRO.nK02.NEliCOn3).l\ROENO 
1 .NEVCPSt 19.5)  .KSNVC.NSm'£.f«FlA0 

common  / OLOCKO  / hCtEiu.oi.mioBtsauHiNOiaai.flRDTftatsn.ii.'iHflx^. 
1 llRO(UlCOL.h*nR0S.VHXYZtS) 

COHIHlII/OLCCKE/HAHE  t •!  > ,1.1  ,LZ . ISRFLO 

c 

C THIS  SUBROUTINE  TS  CALLED  IN  RESPONSE-TO  THE  COaHANOS- 
C PRONOT£_fWD  DEMOTE. 

C-  L2.  a ID  ( OK  0 1 - PROMOTE 

C L2  = 11  l OR  1 1 - DEMOTE 

C 

L2  a L2  **•  10 

JFI  ttOOt  iURAo » 2 1.  .NE.  0 1 03  TO  30 

r a 10 

10  CALL  ERROR t 1 1 
20  RETURN 
3D  NR  a lAROSI  1 1 
NARORaNAilOS-t 
IFIHfiftAS.EO.Oi  00  TO  40 
PO  31  Isl.MAROS- 

31  lAROSt  I IsIAtuVTI  !♦! ) 

iFitmunx.OT.O)  go  to  32 
1=9 

CO  TO  10 

32  CALL  PIKCOUII 

in  i ,ea.  o i co  to  40 

35  I a 3 
GO  TO  10 
C“ 

C IP  NUMBER  OF  R01IS  TO  BE  ROVED  IS  HCOATIYE,  FLIP  INSTRUCTIONS- 

C l.tV  PROMOTE  -0  IS  THE  GAME  AS"  DEMOTE  & ~ 

C 

40  irmt.oE'Oi  go  to  got 
12  8 I - 12 
NR  ti  -HR 
C 

C CHECH  DISTANCE  OP  HOVE 

c 

CO  IFI  12  ,ca,  0 1 00  TO  flfl 

IFI  NS  * NfiHOX  .LC.  HRON  1 00  TO  100 
CO  TO  3S  . 

00  IFI  NR  - NRHAX  1 100.  00.  30 
C 

C PROMOTE  'ffltftft*  ... 

C • 

SO  CALL  PLCK 

miM'Lao.eO.l.OR.NliROS.NE.O)  00  TO  20 
J*» 

09  00  I = 1 . NCOL 
CALL  VECTOR l 0.«  J ) 

03  J a J * MNllii 
00  TO  20 

100  Lilli  I o HANGS 


POMO  1 
POKO  2 
pono  3 

PO  MO  4 

pono  s 
rona  e 

POMO  J 
PDNO  0 

po  no  o 

pomo  ro 

POKO  11 

pono  12 

POMO  13 
POMO  14 
POMO  15 
POKO  16 
POMO  17 
POMO  10 
POMO  19 

ponr  20 

POKO  21 
PCliff-  22 
POHO  23 
POKO  24 
POMO  23 
POKO  26 
POHO  27 
POKO'  25 
POMO  29 
POKO  3. 
PONO  31 
POKO  32 
POMO  33 
POtIO  34 
POKO  33 
POHO  30 
POhO  37 
POKO  30 
I PM  39 

roito  40 

1 OHO  41 
I OHO  42 
POMO  43 
POMO  44 
POHO  4S 
POIIO  40 
POHO  47 
POHO  40 
PPHO  49 
POHO  30 
POMO  31 
POHO  6* 

rotto  S3 

POMO  S4 


* 


non  _ f>c!0  nnn  non 


in  uniT  .eo.  o ) uitn  ncol 

CflU  PLilK 

inNruio.ea.n  go  to  20 

6KWT  PROHOTUO  OR  OEIlQTIHO 
110  HK=l 

03  200  1=1  .L 111! f. 2 
1F(  NflROS  •PC*  0 1 00  TO  120 
KlsKK 
K2  * Kl 
KK=KK*NR0H 
00  TO  130 
120  Kl=IfinGSm 
K2«inR0S(I*l) 

130  in  L2  .Ed.  0 1 00  TO  100 

oenoTE  coe  nr  iu  to  coe  ot  K2 

Kl  a 1(1  ♦ HSttlW 
1(2  B 1(2  ♦ HRhflX  ♦ HR 
00  HO  J : 1.  NRHflX 
Kl  a Kl  - 1 

K2  c K2  - 1 

140  RC  ( K2  1 = RCt  Hi  ) 

GO  TO  2C0 

PROMOTE  COE  Of  Kl  TO  COE  flf  K2 

ISO  *M  e »W«nX  - HR 
Kl  a Kl  ♦ OR 
00  ICO  .1  c 1 . JJ 
OCt  K2  1 a RCl  Kl  1 
Kl  a Kl  « ) 

ICO  K2  o K2  ♦ 1 

if  pfiooore  finiiAY*  file  keot  of  count*  with  zeroes. 

irt  P0RO3  .HE.  0 > 00  TO  209 

*1J  a ,1.1  . 1 

00  170  .1  a J«*.  HRHltt 

net  K2  ) B 0.. 

170  ttt  a Kg  » I 

20 0 C0HI1HUC 

Iff  L2  .HE*  0 1 tifiliftf  a HtillflX  * HR 

IW  10  20 

END 


POHO  55 
POHO  55 
POHO  57 
P0H3  SO 
POMO  59 
POHO  60 
PDHO  61 
POHO  62 
POHO  53 
POHO  64 
POHO  65 
POHO  68 
POHO  67 
POHO  60 
POHO  69 
POHO  70 
POHO  71 
rOltO  72 
PDHO  73 
POHO  74 
POHO  75 
POHO  76 
PDHO  77 
POHO  70 
POHO  70 
POHO  00 
POHO  01 

rmio  02 

POHO  03 
POHO  04 
POHO  OK 
POHO  00 
POHO  07 
POHO  00 
PDHO  00 
POHO  80 
POHO  81 
POHO  82 
POHO  03 
POHO  84 
POHO  05 
pond  as 
POHO  07 

rmto  so 

POHO  09 
POHO  100 
POHO  101 


V'  ' 


subroutine  pfintiarept 
connon  KeY.iovuv.iTvpc 

1NTECER*Z  HKEYt  2 ) < AREAMIS) 

EQUIVALENCE  tNfl.KKCYd  )) 

PM  e AREAf  1 ) 

KEY  s KREY(2]/236 

I TYPE* I 

CRLL  OPOST 

RETURN 

END 

SUBROUTINE  PHYCQ.NttWhE) 

COfiHOII  / DLCCI(n/h0nE.II.KflRn(7'T  J ,KARG»AR0.flRQ2.NEKC0( JOJ.KROEMO 
I .NEUCDGM9.S  J .KCRVL.NCnVE.MPLAO 
connaN/PcoNST/f’  1 2 j ,ui  2 1 
c 

C THIS  SUBROUTINE  iS  USCO  TO  DETERMINE  IF  A PHYSICAL,  CONSTANT  IS 

C STORED  IN  THE  SYSTEM.  IF  SO  IT  RETURNS  IT  IN  ARO. 

C 

DO  CO  Met  .2 
I e lit 

IP|  NAME. EQ.NU  1)00  TO  30 
*0  CONTINUE 
r.ROaQ. 

RETURN 
30  AROsPtll 
RETURN 
END 


PFIN  1 
PFIN  2 
PF»H  3 
PFIN  4 
PFIN  3 
PFIN  6 
PFIN  7 
PFIN  0 
PFIN  8 
PFIN  10 
PHVC  I 
PIIYC  2 
PIIVC  3 
PHVC  4 
FHYC  6 
PHVC  0 
PMYC  7 
PIIYC  8 
PHYC  0 
PNYC  10 
PMYC  It 
PIIYC  12 
PHYC  i3 
PIIYC  14 
PHYC  13 
PIIYC  !6 
PNYC  17 


CJ  uuu 
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SUBROUTINE  PRCRAMtlOll  PflCR  1 

COMMON  / aLCCKfl/HOl)L\M.KRROt77).KnR6.ARG,AR&2.NEHCOC13).KRDEHO  MGR  2 
l.MEHC03ll0.51.KenVE.HCf1VE.HFLAO  PROS  a 

Clinilflff/XrLOT/riFRHfie.KHNO.SIZe.GPfiCE  PRCS  4 

COMMON  KEY.IOVLY.ITYPE  PRCR  3 

OIHEHSIOH  NTEXTtaSl.NTllD)  PRCR  s 

FRGR  7 

THIS  SUBROUTINE  18  useo  TO  016PLAY  THE  COMMANDS  HH1CH  HAVE  BEEN  PRCR  8 

executeo.  pkcr  a 

PRCR  10 

IFUOi.Ea.O)  00  TO  0 PRCR  n 

CALL  CRQPLYt • 1 .AU3001  . PRGR  12 

CALL  ORDPLYt  ‘AVAlLAtlLE  SPACE  FOR  STORINO  COMMANDS  HAS  OECH  PIUi.ED.PRCS  13 

) IF  YOU  II ISM  TO  SEE *.73.41000)  PRCR  14 

CALU  C-ROPLYt  'THE  C0HR3N0S  HIIICH  YOU  HAVE  ENTERED  BEFORE  THEY  ARE  EPRGR  IS 

IRflSEO.  FRCSS  HEY  2* * .72,410001  PRGR  16 

CALU  GROPLYI •0THERH1SS,  PRESS  KEY  1 .*.23,410001  PRCR  17 

2 CALL  GGflLH  FRGS  10 

es  calu  o:mr  prgr  13 

IFtlTYPE  .ME. 1. OR. HEY .HE .2)  00  TO  2 PUPS  20 

1FIMEY  .EU.l.OR.KEY.Eft.On  RETURtl  PRCR  21 

lFIHEY.En.2)  CO  TO  0 PRCR  22 

IF1 KEY. HE .221  GO  TO  2 PRGR  23 

CALL  GCOPLT  I O.tlFHf’liE.KKilO. SIZE. SPACE, lNTEO,IiiCOOEl  PRCR  24 

caul  ccoi'ut  a.iouiii  PRCR  es 

CAUL  CCllUH  PRCR  EG 

OO  TO  25  PRCR  27 

0 CALL  At-RASUCOl  pIltJN  28 

CALL  OnCPLYt’JF  THE  CCKEEtl  BECOMES  FULL  AN  ALARM  MILL  SOUND.  MHEWRfiR  23 

i you  iimir  to  sEE*.6a.4inoo)  prcr  30 


CAUL  OftOPLYI  *TH2  NEXT  SECTION  OF  YOUR  PROOWW,  PP.CSO  KEY  2.*.40.41PR6lt  31 
10001 

CAUL  GRflPLYJ'  *.  1,410001 
lFI10VLY.EQ.il  00  TO  00 
JsICVLY-1 
IflVLYsl  . 

AO  50  H«l , J 

NEflotnsnve*iflVLYi  Nrm 
00  SO  la). 93. JO 

40  CALL  C.'UfPLYItlTEXrm.tS, 41001 
CO  TO  00 

iso  call  onnui 

160  CALL  OH.Iir 

imtYPE.im.il  03  TO  100 
IFIKEY.i'Q.nU  REIURII 
tftREY.fcfl.21  00  TO  4S 

inimv.im.22i  uu  in  iso 

call  scopLYin.i-rimim.waio.sizE^PAce^iNiEaaRcouei 

CALL  GCOPLT (l.ICUiU 
CALL  flcfiu 
03  TO  >00 
45  CALL  Ct-AASf  1001 
09  TO  40 
SO  CONTINUE 


PRCR  32 
PRCR  33 
PRCR  34 
PRCR  38 
PURR  36 
PRO H 37 
rncf.  3o 
PRCR  33 
PRCR  <0 
PRCR  41 
PRCR  42 
PRCR  43 
PRCR  44 
PRCR  48 
PRGR  46 
PRGR  47 
PRGR  40 
PRCR  43 
PRGR  SO 
PRGR  61 
PflC.1  52 
PUSH  65 
fflCft  34 


SO  IFIKGAVE.EQ.B)  GO  TO  400 
00  110  Isl.USflVC 
00  ICO  .1=1.19 
ICO  NTl  J )=HEUCOG  f J .11 
*40  CALL  GROPLY < N T .72  .4250 1 
GO  TO  110 
200  COLL  CCflLH 
260  CALL  C«3IT 

IFUTYPE.HE.il  00  TO  2S0 
IFIKET.Ea.31J  RETURN 
JFlliEY.EQ«2)  GO  TO  245 
lF(KET.f'c.22J  CO  TO  250 

CALL  SCOP LT ( 0 « M FAAIIE «i<UN0 .SIZE  (SPACE  . I tilEO  » I5CG0E 1 
CALL  GCOPLTt 1 .XOUHJ 
CALL  CCALN 
CO  TO  260 

*45  COLL  GEKA3U00) 

GO  TO  240 
110  CONTINUE 

400  CALL  CAKfLYt*  *.1,41000) 

CALL  OSDPLYC ’ ’.1.410001 
CALL  C.WLYC*  M, 41 0001 
CALL  CRDPLYl*  *.1.41000) 

CALL  GRCPLU*  *.1.41000) 

1000  RETURN 
END 


PROA  S3 
PRGR  55 
PRGR  57 
PRGR  58 
PRGR  58 
PRCR  60 
PRGR  61 
PRGR  62 
PRGR  63 
PRGR  64 
"RGn  65 
R6R  CO 
PROS  67 
PRGR  63 
PRGR  63 
PRGR  70 
*RC3  71 
PRGR  72 
PRCR  73 
PRGR  74 
PRGR  75 
PRGR  76 
PRCR  77 
PRGR  70 
PRGR  79 
PRCR  00 
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subroutine  proroii 

COnnON  l BLOCK  A/fl30£.M.KfliSQt  77 1 »KflRO.flR£>«flR02 .HERCO!  191 .KROEHD 
1 .NCHCOS! 10.31 .KSAVE .H5AYE .NFl  AO 

COflHON  / OLOCK0  / RC{2l3ai.:fl:vGSt83J«KIMOC331.flROTfi3(31».«RHfW. 
1 HROIJ . ECOL  .HfiitCS  .VtJXYECS  1 

CfinnoN/scRnT/nt  ooi 
CORnON/CLOCKE/HAFE!  4 1 .LI  .L2 , ISRFLD 
EQUIVALENCE  f JfU  .lOKGSU  ll.UflZ. IflR03£21i 

c 

C THIS  SUBROUTINE  IS  CALLED  IN  RESPONSE  TO  THE  C0HI1AND8 
C R0H6UU  fiRO  PRODUCT . 

C 

lFtUARC3.CE.31  CO  TO  <0 
CALL  ERROR! IQ) 

RETURN 

40  CALL  CUKCOLI JS 

IF!  J.EQ. Q.Rii'D.I  IRRCS(Z)  .GE.IARGS!  11.0R.NARGS.OT .311  CO  TO  60 
SO  CALL  ERROR! 31 
RETURN 

60  IF1RMUW. 61. 01  00  TO  60 
CALL  ERROR! 31 
RETURN 

60  CALL  PLESK 

inHFLAC.EQ.il  RETURN 
CONST- 0. 

IFCL2.EQ.21  CGfHJTsI. 

00  100  1=1  .tJRiiNK 

100  A! I IsCONST 

inmiSCS.GE.41  CO  TO  zoo 
00  160  Ksini.M2.HR3H 
09  ISO  Isl.HRUAX 
JsK  ♦ I • 1 
1FIL2.CQ.21  CO  TO  140 
AtllsIUIlMCUl 
CO  TO  ISO 

140  A! II  s flltlaRCCdl 
ISO  CONTINUE 
170  R = I Ail  S3!  HARDS  1 
00  ICO  Isl.I.'KIiAS 

«l  S K » I ~ 1 
160  RGIJ1  = A!  II 

RETURN 

200  II  e HAROS  - 1 
00  2S0  Lsl.JI 
K a 1 ARCS! LI 
oo  230  isi.nrrax 

J 5 S * I ► ) 

IF!  1.2. E«. 2)  CO  TO  240 
nm=Rm»RC(j) 

GO  TO  230 

£40  Am  s milBRCiJ) 

SSO  CONTINUE 
CO  TO  170 
ENO 


PROR  1 
PROS  2 
PKOR  3 
PROS  4 
PROR  5 
PROR  6 
PROR  7 
PROR  8 
rr.CR  s 
PROR  10 
PROR  11 
PROR  12 
PROR  13 
PROR  14 
PROR  IS 
PROR  18 
PROR  17 
PROR  IB 
PROR  19 
PROR  20 
PROR  21 
PRCR  22 
PROR  23 
PROR  24 
PROR  25 
PROR  26 
PROR  27 
PROR  20 
PROR  29 
PROR  SO 
PROR  31 
TROR  32 
TROR  33 
PROR  34 
PROR  35 
PRCR  96 
PRCR  37 
PROR  38 
PROR  33 
PROR  40 
PROR  41 
PROR  42 
PROR  43 
PRCR  44 
PROR  45 
PROR  40 
PRCR  47 
PROR  40 
PRdR  40 
PROR  50 
PROS  SI 
PROR  52 
PRCR  63 
PROR  554 


| 


v 

% 
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subroutine  reaog 

COtlHOH  / CLOCKfi/MOOE,N,Kn30n7).Km<ARO.flR&2.HEt!CDn3).KROENQ 
1 .NEHGD61  IS  .5 1 .KSAVE .H6A  VE  .IIFLAG 

COMMON  / QLOCXD  / RCC2433),lARGo!SS)«KIND<331.AR0TAB151 l.NRMAX. 

1 NRGH.NGOL.NRR©S.V!4m!S) 

DIMENSION  nRC-3C333 
EQUIVALENCE! ARCS!  11  .RC<  24011  1 
COMHON/flAG/NDHCiU .J.NHARD 

• 0 

C THIS  SUBROUTINE  16  USED  TO  PUT  0 RON  CP  DATA  INTO  THE  WORKSHEET. 

<5 

IPC  U .UT.  NROH  1 00  TO  10 
CAU.  ERROR!  10  1 

CO  TO  S3 

0. 

C HNAROS  CONTAINS  THE  HUH  OCR  OF  ARGUMENTS  IN  THE  READ  COMMAND. 

C 1 ARCS! 401  THROUGH  IAROStNNflRC+33)  CONTAIN  ADDRESSES  OP  COLUMNS. 

i 

10  00  30  I = 1.  NNARO 
K 5 IAKOSI  1 ♦ S3  1 ♦ J 
IFC  KINDI  I 1 .£0.  0 1 CO  TO  20 
RC(  K 1 s ARCS!  I 1 
00  TO  30 

£0  RCf  K 1 a 1 AROSt  1 1 
30  CONTINUE 

CALL  G8KSPI4) 

CALL  GRDPl.Y!HENC0.70j4031 

C. 

C.  4 16  the  HUMBER  OF  ROWS  READ  IN. 

C 

J 8 J ♦ 1 

IFtmtHRX.UT.Jl  NRMflXsJ 
CALL  OiTPPLYf*  1.400) 

CALL  CROi'LY ( ’ '.1.4331 
CALL  ORGFLYC*  1.4081 
CALL  ORDPLYf«  M.  4331 
CALI.  ORDPLYt  * 1.403) 

83  RETURN 

EHO 


READ  1 
READ  £ 
READ  3 
READ  4 
READ  3 
READ  6 
READ  7 
READ  8 
READ  8 
READ  10 
READ  11 
REAO  12 
READ  13 
READ  14 
REAO  18 
READ  10 
READ  17 
READ  18 
REAO  18 
READ  20 
READ  21 
READ  22 
REAO  23 
READ  24 
READ  28 
REAO  26 
READ  27 
READ  28 
REAO  29 
REAO  30 
READ  31 
REAO  32 
READ  33 
REAO  34 
READ  35 
REAO  36 
READ  37 
READ  38 
REAO  30 


uou 
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SUBROUTINE  REAPX  READ  1 

COMHOfl  / DLOCKH/NODE.N,KARO!771,KARG.ARC.Ai?eZ,NEHCO!13).KROEHO  READ  2 

l«NEHCCS!13.S).KSrtY£.NSfiVE.NFLfi&  REAO  3 

COHHON  / DUJCtO  / RCC24301  .IftRC3(631.KItlO!  33).ARGTA3(U1 ) .NftHAX.  READ  4 

4 NR0U ,NCCL .NARCS.YHXYZ! S 1 REAO  5 

DIMENSION  AROCtSSl  READ  6 

C0ffllON/RLOCKE/NAIlE!4).Ll.L2.I6RFL&  KERO  7 

COI1HON/SRS/N3tiGA,J«NNARG  READ  0 

CQUIVALENCEIARG8Ul.flC!24011)  RERD  8 

READ  10 

THIS  SUBROUTINE  IS  CALLED  IN  RESPONSE  TO  THE  COMMAND  REfiO.  READ  11 


IF!  NRROS  .GT.  0 ) 00  TO  10 
0 CALL  ERROR!  10  1 
CO  TO  100 

10  CALL  CHKCOL!  I 1 

IF!  I .ea.  0 1 00  TO  20 
IS  COLL  ERROR!  3 1 
CO  TO  100 

201  CALL  CERAG(IOO) 

DO  TO  21 

20  CALL  OROrLY!’  M,  42011 

21  CALL  Q'JKSPiei 
R0nEn2 

CALL  OI?D?LY(NEHC0.70.4I001 
CALL  ORCPLY!  • M. 41 001 
CALL  OROPLY!’  '.  1.41001 
CALL  GADFLY!  • M. 41001 
CALL  OROPLYt*  *. 1.41001 
CALL  OROPLYi’  1,42001 
200  ISRFLO  a 0 

00  30  I s 1.  HAROS 
1ARCSI  I ♦ 30  ) a IAR06!  1 1 
1AR0S!  11  = 0 
30  AROS!  I 1 a 0. 

J a O’. 

NNARO  5 NARCS 
100  RETURN 
END 


REAO  12 
READ  13 
READ  14 
REAO  IS 
REAO  16 
READ  17 
READ  18 
REAO  10 
READ  20 
REAO  21 
REAO  22 
REAO  23 
READ  24 
REAO  25 
READ  26 
READ  27 
READ  28 
REAO  29 
REAO  SO 
READ  31 
REAO  32 
READ  33 
REAO  34 
REAO  35 
READ  36 
READ  37 
REAO  36 
REAO  39 
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SUBROUTINE  RESET 

CCmiCfl  / DLflCKfl/N?0C.H.KPRCH77).KARG,flRG,fiRG2*HEllC0t  131.RR0EN0 
1 .flEHCOS  C J 3 , 15 1 ,K  SilV  Z . NS3Y  E .HFLAC 

COtWOW  J CLOCK!)  / RCt24^),IRK&S{0a).KIH0t33).fiRGTA0C3n.HRnflX. 
1 NROll»NCOL«NflRC8.VI«71!{i>) 

OIUENSICH  fttc-sm 

CC!iM6H/BLOCKE/Hfltt£t 4 J .Li  .L2. I8RFL0 
ESUJYflLENCEIMCSt  1 J *mZ- 101  i J 

THIS  SUBROUTINE  IS  CALLED  III  RESPONSE  TO  THE  COHMfiNQ  RESET. 

IP  t mOS  .E8.,  1 ).  IF  { L2  - 5ilC0.lD0.30 
K s JO 

10  CALL  ERROR l K ) 

20  RETURN 

RESET  NRHAX 

SO  IF(  KINOtl)  .HE.  0 ) lAROSUl  = AROS(I) 

40  IFt  1 fiRCSt  1 ) .CE.  0 .AND.  IARGS1  1 1 .LE.  NROH  J GO  TO  BO 
K a 3 
GO  TO  10 
50  CALL  PLBX 

IFUIFLAO.Ea.n  RETURN 
HRIlfiX  e mOS(  l ) 

GO  TO  20 


RESET  V.H.X.Y.Z 

100  CALL  rtox 

IFIHFLAG.Ea.l)  RETURN 

ire  HINDU)  .EQ.  0 ) AROSO)  s IARCSU1 

VHXYZt  L2  J a ARCS!  l 1 

GO  TO  20 

END 

SUBROUTINE  SCRRIMNC.IT) 

C0W10M  / UL0CM/M0F.H,RnRDC77 ) .KAR0.AR0.ARC2.NEUCCU  10) .KRQEUO 
l.NEIIf.081  la.Ci.KSHVC.HSaVL'.NFLflO 
COlitlON/GCRAT/AUJO) 

COISIIOil  KEY.IOVLY.WPE 

ZPTR«IOVLY 

RCOLsNCMO 

iFHT.en.2)  ro  to  bo 
REnO(H6RVtMHCSL)  n 
GO  TO  100 

tSO  HR  5 T2 ( NSfiVE  ’HCOL ) fl 
100  IDVLVwJPTR 
RETURN 
END 


nr,r. 


SUBROUTINE  SET  SET 

COMMON  / OL0CKfl/HflOe.H.KA!UJ!77}.KnRO,flRC,RRC2.HEHCOI13).KROEHO  SET 
1.NEMC06!  lO.Sl.KSAVE.'iSAYE.HFLflO  SET 

COHRO.'I  l OLOCKO  J RC!S4U3).IflRGS!631,»UWO!331.AROTA3(5ll«N3«HnX.  SET 
1 HROM.HCOL .HilRCS . VHKY2 1 S l SET 

tOmtON/nLCCKE/AflriEt4).Ll.L2«I6RFLO  SET 

EOHHON/GRS/HOROH . J .MNflRO  8ET 

SET 

THIS  SUBROUTINE  IS  COLLED  IN  RESPONSE  TO  THE  COWHAND  SET.  SET 

SET 

IF  ( NRRCG  .C-E.  1 .AND.  HAROS  .LT.  3 J 00  TO  10  SET 

CALL  ERROR!  10  1 • SET 

CO  TO  100  SET 

10  CALL  RORESSt  HAROS  . J)  SET 

IFI  U ) 15.  17.  20  CET 

IS  CALL  ERROR!  3 1 SET 

00  TO  100  SET 

17  CALL  ERROR!  11  1 SET 

CO  TO  100  SET 

20  NDRlttl  a J ♦ HRQH  - 1 SET 

IF!  NARGS  .E3.  1 1 GO  TO  2S  SET 

IF!  KIND!  1 1 .HE.  0 1 GO  TO  IS  SET 

IF!  IAROS!  I 1 .LE.  NROW  .AND.  IAROS!  1 1 .CT.  0 1 00  TO  24  SET 
CALL  ERROR!  16  1 SET 

CO  TO  100  CET 

24  J a J ♦ I ARCS!  11-1  SET 

25  CALL  PLOK  SET 

IFtNFLf36.ea.il  RETURN  SET 

ISRFLO  a 1 SET 

HOOE  - 2 SET 

100  RETURN  SET 

ENO  SET 


1 

2 

3 

4 

5 
8 

7 

8 
8 

10 

11 

12 

13 

14 

15 

16 

17 
10 

18 
20 
21 
22 

23 

24 

25 

26 
27 
23 
23 

30 

31 

32 


t 


8UBR0UTUIE  SETQ 

SETQ 

1 

conmjN  j cLocKfi/ttoop.n .stnont  77 j ,Kni?G.flR&,nR02  .nehcoi is i .kroeno 

SETA 

2 

1 .NEHCDSt 10.51  .KSBVE.H6flVf  .KFLflO 

SETQ 

3 

COMMON  / BLOCKO  / RCCMC3 ) . IflRGG ( GO  1 ,KIND(S01 .ARGTRQtSl 1 .NRIlflX  * 

SETQ 

4 

l NRCll .HCOL.UARQG .VUKYE f S) 

SETQ 

S 

DIMENSION  ARG81331 

SETQ 

6 

EQUlVALEMCEtARfiStll  ,00(2401 11 

6ET0 

7 

COtlHOH/OSS/NOaON  ,.J  .NNMKO 

SETQ 

0 

c 

SETO 

9 

c 

THIS  SUBROUTINE  IS  USED  TO  ENTER  ORTA  INTO  THE  WORKSHEET 

SETQ 

10 

c 

IN  RESPONSE  TO  THE  SET  COMMAND . 

SETQ 

11 

c 

J IS  KilERE.  NEXT  DATA  ITcH  IS  TO  00  Iff  COLUMN  . 

SETQ 

12 

c 

JJ  IS  WHERE  LAST  ORTfl  ITEM  OF  THIS  SET  IS 'TO  00 

SETQ 

13 

c 

MORON  IS  ADDRESS  OF  LAST  ROM  IH  COLUMN. 

SETQ 

14 

c 

SETQ 

15 

IF( HAROS. EC1. 01  00  TO  03 

SETQ 

15 

JJ  s J ♦ NAROS  - I 

SETQ 

17 

IF(  JJ  .LE.  tIOROM  1 GO  TO  10 

SETQ 

10 

CALL  ERROR ( 201  1 

SETQ 

13 

IPIHFLHO.EQ.il  RETURN 

6ETQ 

20 

c 

SETQ 

21 

c 

CHECK  IF  EH 0 OF  ROH  HAS  OEEH  EXCEEDED  PREVIOUSLY  IN  THIS  GET. 

SETQ 

22 

c 

SETQ 

23 

IF1  J .PT.  HURON  1 00  TO  33 

SETQ 

24 

JJ  b NDROU 

SETd 

25 

00  TO  15 

SETO 

26 

10  CALL  Pl.BK 

SETQ 

27 

IFfHFLAG.EO.l ) RETURN 

SETQ 

20 

10  K a 1 

SETQ 

29 

00  30  I a J.  JJ 

SETQ 

SO 

1F(  KII1D(  K 1 -Efl.  0 J 00  TO  20 

SETQ 

31 

RCt  1 1 s ARCS I K 1 

SETQ 

32 

CO  TO  30 

SETQ 

99 

20 

RCt  I 1 a IflRCSf  K ) 

SETQ 

34 

90 

K b K ♦ 1 

SETQ 

90 

J 8 JJ  ♦ 1 

SETQ 

30 

NRHAX  8 tWXQl  NRMAX,  JJ  - HURON  ♦ HROM  1 

OETQ 

97 

SO 

RETURN 

SETQ 

30 

END 

SETQ 

99 

Ha  IRRG3(2'  - l 
00  23 0 Jsl.NRhflX 

Ja  Kt  I 

230  RClJlsfUMU) 

GO  TO  30 

240  00  250  Isl.NRHfU! 

Ja  Kt  I 

250  rcuj  = nm 

IFJURROS.W.n  00  TO  30 
ira2.ea.oj  cw  ro  230 
IFUIflrtGS.EQ.K31  00  TO  30 
K3  t H3  ♦ 1 
K * Ifl«GS(K31  - 1 
00  TO  130 

230  00  310  t s2.N»W03 

K a 10R061 1 1 - I 
00  300  Jal.HHHRX 
JlnHUfi(«l)+!l 
300  AIJ1  : RCIJ11 

00  310  j3l.OfiltflX 
Jits  K t J 

3)0  ItCtJll  a (UJ1 
GO  TO  33 

too 


CORO  55 
CORO  56 
CORO  57 
SOftO  SO 
CORO  50 
CORO  CO 
CORO  61 
CORO  62 
CORO  63 
CORO  04 
CORO  65 
CORO  60 
CORO  67 
CORO  CO 
CORO  69 
CORO  70 
CORO  II 
CORO  72 
CORO  73 
CORO  74 
CORO  75 
CORO  70 
COHO  77 
CORO  70 


c*r»r»r»  nnn  ooo  ooo  non  nnonnn 
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SU8R0UriHC  SPJNVin.OFTl  SPIN  1 

COmiOfl/CCRAT/BlOJl  SPIN  2 

REfil.xB  A(40l.OEf.aNe.2ER3,£R.C.X.HOLDl40).E.2E  SPIN  3 

esUIVttU'NCC  ift.iil  6PIN  4 

ONTO  ONE/I <00/ .2ER0/0.00/.ER/1 >0-4/  SPIN  S 

SPIN  6 

THIS  SUBROUTINE  FIH03  AN  INVERSE  BY  USING  THE  f.iUlS-.IORDAN  ItCTHOO  OF  SPIN  7 

elimination.  h hill,  contain  the  dimension  of  the  mtsix  to  re  spin  b 

INVERTED.  OET  IS  USED  TO  IH01CPTE  WHETHER  INVERSION  HflS  SUCCESSFUL.  SPIN  8 

OET  * 0 - MATRIX  WAG  SINGULAR.  SPIN  10 

SPIN  11 

OETsflNE  SPIN  12 

Nstl  SPIN  13 

N2  a N * N SPIN  14 

1=0  SPIN  IS 

12  L a L ♦ 1 SPIN  16 

CALL  6CRflMCL.il  SPIN  17 

SPIN  19 

FIND  THE  uAROEST  ELEMENT  IN  THE  LTH  COLUMN.  SPIN  18 

SPIN  20 

01  a L SPIN  2i 

CaCnaSIfllLU  SPIN  22 

ir(L  - NI13.30.1000  SPIN  23 

13  LI  u L 4 1 SPIN  24 

00  20  I « LI. N SPIN  23 

CALL  CCRfilll  1.1)  SPIN  20 

XuOAOSlAtL) 1 SPIN  27 

IP(C.GE.X)  00  TO  20  SPIN  20 

GPIN  29 

RECORD  THE  NUMOER  OF  THE  RON  NAVINO  THE  GREATER. ELEMENT.  SPIN  30 


RECORD  THE  NUMOER  OF  THE  RON  NAVINO  THE  GREATER. ELEMENT.  SPIN  30 

SPIN  31 

01  » I SPIN  32 

SPIN  39 

C BECOMES  THE  GREATER.  SPIN  34 

SPIN  33 

C t:  X SPIN  30 

CO  CONTINUE  SPIN  37 

SPIN  30 

IP  THE  LONGEST  ELEMENT  IN  A COLUMN  16  EERO  THERE  16  A SINGULARITY.  SPIN  39 

SPIN . 40 

30  inC.HE.EEROI  GO  TO  22  SPIN  41 

OEItseiiKO  . SPIN  42 

00  TO  1000  SPIN  43 

SPIN  44 

INTCRCHDHOC  AMI  01  WITH  RDM  U 01  1G  THE  ROM  UITH  THE  LARGEST  ELEMENTS!’ IN  43 

TEST  TO  SEE  IF  IHTtUCHMIOIHO  IS  NECESSARY.  SPIN  46 

SPIN  47 

f2  IflUt.Ea.U  03  TO  32  SPIN  43 

CALL  GCHniMJl.il  GPIH  40 

0!)  24  0 ^ I..H2  , SPIN  SO 

e«  IIOLO(0)«fttJI  SPIN  Gl 

CALL  CCRRNiL.il  GPIN  52 

CALL  CCHIWJ1.2J  SPIN  69 

00  26  OsL.HS  6P1H  64 
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‘>j 

*} 

.? 

4 

'4 

& 

feV 

i-v 

■I 

| 

1 

•] 

fe" 

«5  TUJ)=HflLO<J) 

SPIN 

53 

0} 

j 

l '• 

CALL  6CIWMU.2) 

SPIN 

S6 

C 

SPIN 

57 

) 

c ze«o  pu.  the  elements  in  the  urn  column  but 

THE  P1V0T0L  CLEMENT . 

SPIN 

50 

.i 

•\ 

V 

c 

6P1H 

S3 

4 

8H1  S 1 

CPUl 

60 

■f 

1 

5 

L2  « L - 1 

SPIN 

61 

L3sUl 

SPIN 

62 

.1 

Vi* 

cpu  ecpPBu.n 

SPIN 

03 

i 

r 

00  3235  I1=l.H2 

SPIN 

64 

5 

3295  MOLO(iI)=fUjn 

SPIN 

65 

V 

IFUZ.OT.Ol  00  ro  323 

SPIN 

66 

3 

| 

$•> 

321  IFIL.EQ.N)  00  TO  48 

6PJN 

87 

322  Ll=L3 

SPIN 

60 

L2  = N 

SPIN 

09 

1 

323  00  32S  IU1.L2 

SPIN 

70 

1 1 & 

CPU  SCKPfltl.l) 

6PIN 

71 

4 

I 

1 1 

Ia-nCU/H0L0(LI 

SPIN 

72 

m 1 

00  324  J-L3.N2 

SPIN 

73 

‘ 

I | 

ZZaJUMOLOIJl 

SPIN 

74 

s 

1 

P(J)rfl(0)>2Z 

SPIN 

73 

■i 

1 ( 

irtonr^dKoH.cr.Ei^npusfszn  oo  to  324 

SPIN 

70 

i 

1 (•. 

PI J) =2 CKO 

SPIN 

77 

1 

1 1 

324  CONTINUE 

cent 

70 

} 

1 1 

320  CPU  Gi;nni!U.2J 

SPIN 

73 

1 

1 

irui.or.L2)  co  to  321 

SPIN 

80 

•5 

■ 

00  TO  12 

SPIN 

01 

! 

1 I 

c 

SPIN 

02 

1 i 

C 0JV10E  OY  OJPOOIIjlL  CLEMENTS. 

SPIN 

03 

1 1 

c 

6PIII 

84 

1 

1 1 

48  m=N»i 

6PJH 

85 

1 

1 1 

00  43  lBl.lt 

SPIN 

88 

1 

1 1 

CALL  CCRMU.l) 

SPIN 

07 

£ 

* 

■ I . 

ZZsfl(l) 

SPIN 

89 

$ 

1 ( 

OCT  s OET  ■ 22 

SPIN 

03 

1 

1 f 

00  40  J ~H1 ,N2 

SPIN 

SO 

,»5 

I i 

48  mu)ePM)/ZZ 

SPIN 

01 

1 

43  CPU  GCflflHI  1 .2) 

SPIN 

92 

1 

1 ' 

1000  return 

SPIN 

83 

i 

wo 

• 

• fiPlll 

34 

| 

.V 

T 

] 

*s 

■ 

■ 

1 ! 

• 

■% 

1 

1 

4 

1 

i 

& 

■i 

is 

li  ?■ 

4 

If 

• 

4 

4 

1 

jl 

"if. 

subroutine  STftro  6tnr 

COII.ION  / aLOCKfi/imOE.h.HnR0mi.KflRQ,flRO.flRG2.NEMCOtl9).KRl)END  6TRT 

I. HEWC03C  18.5). RSRVE.NSflye.Nri.no  STfiT 

C0KHON  / BLOCK!)  t RC!243a),Jfl£;C5lfi3),MH0t3D).flR0Tflat5n.N(mflX.  STI1T 

i KROM.NCOL.tJn.fOo .vHXYiis)  suit 

COl1Hfl.VOLOCKf/;ifln:t4).U.L2.1SRrLa  GTJtT 

OJIIEflGJON  GROSl  1 1 6Tf1T 

EQUivnLENcetflRost  n.RC(2iom  girt 

OOUBLE  PRSCieiOi!  SCM31  ,M  .X2  .X3  STfiT 

OIllEilSIOt!  IT t3)  .INC13)  6T0T 

Eomv(u.cHcet  n. in  n ).  t I2.1H2)  m 13. 1 1(3)>. (iHcm.iNi).  sm 

lUNC{2).JN2).UHC(3).JN3).(XXU).Xl).(XXl21.X2MXXt3).X3)  6TDT 

ZEROnO.  STm 

ONt>.i.  srnr 

IF(L2.LE.3.nim.tmR0S.HE.2)  0!)  TO  3)0  GMT 

IF(L2.GS.I j.(li!0.f!nWC3.HE.4)  CJ  TO  310  GMT 

lfa2.OT.3.fUiD.L2.LT.)3.KM0.MflR03.HE.3)  CO  TO  0)0  6THT 

cnu  noRESSiNnaos.iu  gmt 

1F(  ID  20.30.40  . GMT 

20  cnu  ERrtCiU20)  crnr 

RETURN  STfiT 

30  cnu  ERROR! Ill  STM 

RETURN  GMT 

40  ILZBlL*NR«nX-)  GMT 

NflROS«N(IK0S-l  * GMT 

00  30  lei  .IIRRCG  RTllT 

1HC(I)=)  stm 

cnu  ncResGti.jiti))  * smt 

IF(lHD)  45.30.30  6MT 

4&  iim=~*nn  gnu 

INCmcO  STfiT 

60  XMlteACllItm  6Tl)f 

J. ilfftROQ  GMT 

cnu  c«ino»j)  stnr 

IPIWW3H.HE.01  00  10  60  STM 

cnu  etwofltsi  suit 

RE f URN  OMf 

eo  cm  il  plw  crnr 

llWEftO.Eil.ll  i-’TTlum  GNU 

DRSilCN  ICO  TO  UuOl  GMT 

iF(o.ea.i)  ncno.i  100  to  loom  srnt 

00  TO  fllO.K'.M::!'.!  liMSO. 100. 170. lOJ.lCjn.COJ. 210,220 .230.240.  of.H- 
12S9, 2:5(1 .27(1 ,2£:)).Lt  SMT 

80  ISwItUINJ  GTOT 

xjrhurj)  . GTfir 

03  ICnlStint  STM 

KMICtlSI  CTNT 

00  n -M.IU)  , GTOT 

XlRCtil)  GTOT 

CO  TO  Ui0CM.n0il.109)  . SUIT 

100  CUE  VECIUKIV.IU  GTOT 

RETURN  GTflf 

103  KC(JC)«V  GTOT 

U.31U1  6IhT 


1 

2 

3 

4 

s 

6 

7 

0 

3 

10 

)1 

12 

13 

14 

15 

16 

17 

18 

19 

20 
81 
22 

23 

24 
23 
26 
27 
20 

29 

30 

31 

32 

33 

34 

35 

36  • 

37 
30 
80 

40 

41 
4* 

43 

44 

49 

46 

47 
40 
43 

50 
81 

52 

53 
34 


irtIL.0r.iL2)  RETURN 

00  TO  JWim.UM.  12).  131. 141. 151. 16).  171. JO). J31. 20). 211.221, 
1841.251 .201 .271 .£311 
SOS  Cfll.L  ERROR  ( 103) 

YstErtO 

IFttL2-8)/S)  30.fJS.00 

no  fission  in  ro  i;m\z 

111  VaYORtlXtXl  1 
CO  TO  90 

120  ASSIGN  121  TO  ifIPCX2 

121  IFtXl .LT.JLRO.OX.Xl.OT.ONEl  00  TO  003 
YsVOtWtXl  1 

CO  TO  90 

no  fission  m to  x»ioex2 
131  YnYOittiZtXll 
CO  TO  90 

140  flCSlKl  141  TO  1R0EX2 

141  IFI Xl .LT . XcRO .03 .X2 »LC .ZERO)  CO  TO  303 
YsCfiitXtXl.X21 

00  TO  OS 

>50  flflSIOSI  151  TO  111002 

151  IFfXl.LT.XElIQ.fin.Xi.Or.OilE.Olt.XS.lE.ZEROl  GO  TO  300 
Ve0ni1PtXl.X21 


CO  TO  05 

100  flSGIG.'l  101  TO  IJlBEXe 

101  I f I X 1 • L T . ?.EM  .0.1  ..vc . Lf  .2  WO 1 00  TO  003 
fefljUHtJtJ.Xg) 

00  TO 

170  ft)SlC!l  171  TO  JK0CX8 

171  irni  -LT  .g&TO .0.UX*  .LK .TCROl  00  TO  SS3 
YaaiJXOl.XSl 

CO  TO  05 

100  AS CIC.'I  101  TO  IHPEX* 

101  jmi.Lr.e^j.0.1. xi. or .o,'iE. on. X2.Le.2CR0!  co  ro  aos 

YsCHirtXl.Xil 

CO  TO  »H 

ICO  CSSiCit  191  TO  1JWEX8 
131  iriNl.Lr.2E.TJ.U.l.X2.Le.2t'«01  CO  TO  303 
YgCHttlkl.XS) 

ca  ro  os 

*00  C33JCN  SOI  TO  IfiOCX? 

*01  m.fS.LE.TSrOl  CO  TO  SOS 
YeTfXtXl.Xil 
CO  Til  05 

*10  H3CICN  211  TO  *51302 

*11  .mxi.LT.MS3.3i!.Xl.Cr.a’lC.CR.X2.LC,lCK3>  CO  TO  303 
YstTFIXl .32) 

«o  ro  os 

*20  fiS!W'.'l  251  TO  1N**£X2 
221  1FCX2.LC.TICS  11  GO  TO  333 
Yimni.N2i 

C3  10  03 

eso  asst  w *2i  ro  mcst 


STHT  70 
STCT  70 

STtir  GO 
crtiT  oi 

STiir  02 

CTOr  63 

6T0T  04 
STOT  05 

stfir  oa 
sror  07 
crnr  oo 

CTPT  09 

«rnr  so 

STCT  61 
SHIT  02 

srr  os 
stoi  or 

4W  05 

<rc*'  as 

STtir  07 

srtiv  co 
star  oo 
era:  100 
ernr  101 
srnr  102 

SffiT  103 

srttr  ioi 

svi'.r  it? 3 

crcr  103 

SffiV  107 


*31  Ii’lX;.LI.ai.J.iLi.)il.or.^S.C5^2,U:.2«0.(W^3.LL.2C.njJ  CO  TO  193  Slfif  ICO 


V\  . . 
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Y:;BETAXCXl.X2,X31 
00  10  00 

240  ASSIGN  24 J TO  IflOEXZ 

241  IFCXl-U. ZERO. OR  .Xl.CT.aNE.OR.X2.LE.ZERO.OR.X3.LE. ZERO) 

VsBErflPCXJ.X2.X3J 

GO  TO  00 

250  ASSIGN  231  TO  IN0EX2 

251  IF t X!  .LT .ZERO. OR .XI  .CT .U.NE.CR .X2 .LE .ZERO .0.T.X3 .LE .ZERO J 
VsBETflZtXl.X2.X31 

CO  TO  00 

260  ASSIGN  2GJ  TO  IH0EX2 

£61  IFCX1.LT. ZERO. OR.X2.LE.ZEPO.OR.X3.LE. ZERO)  00  TO  303 
YsFTXm.X2.X31 
00  TO  GO 

*70  flSSIOH  271  TO  INQEX2 

£71  I FC  XI .LT . ZERO . GR .X) .CT .ONE .OR .X2 .LE .ZERO. OR .X3 .LE .ZERO ) 
VsFFPCXl .X2.X31 
00  TO  GO 

*60  flSGION  201  TO  IN0CX2 

201  ir(Xl.LT.ZCii0.i)R^2.LC.ZERQ«OnJO.LE.ZERf»  00  TO  303 
YsFFZCXJ.xa.XJl 
00  TO  30 

310  COLL  CRMttUO) 

mmt 

EMO 


STflT  J09 
STflT  JIO 
STflT  111 
00  TO  303  STflT  112 
STflr  1JS 
6T0T  114 
STflT  115 
00  TO  303  STflT  116 
STflT  117 
STflT  no 
STflT  113 
STflT  120 
STflT  121 
STflT  122 
STflT  123 
00  TO  303  STflT  124 
STflT  125 
GTftT  12G 
STflT  127 
STflT  120 
STflT  123 
STflT  130 
STflT  131 
G/flf  132 
STflT  133 


nnnn 
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SOfl.lDOTINE  T.WSF 

TRAN 

1 

common  / au*cKfl/«ooe.h .karo i n i .KRR8.nRt).nft02 .nehco t ia > .kroeho 

TRAN 

2 

1 .NENC15( 1 9 .3 ) . KSRVE .MSAVE . HFLAO 

TRAN 

3 

COMMON  / 0LOCKO  / RCI2439) . IfiRGS{69).KJNDC39).flflGTA0(51 l.NRHAX. 

TRAN 

4 

1 NROH.NCOL.NAROfJ.yNXYKSl 

TRAM 

S 

COMMON/SLOCKE/NAtlc  ( 4 1 .LI .L2 . ISKFLO 

TRAN 

0 

coiinON/sc/wr/Ai  ooi 

mu 

7 

UIKENSION  llOLOOO) 

TKAII 

8 

C aaaa* 

TRAN 

8 

C THIS  SUQROUriNE  13  CALLED  IN  RESPONSE  TO  THE  COMMANDS 

TRAN 

10 

C HtX'AXl  AHO  MtXAX'l. 

TRAN 

11 

C BMM 

TRAN 

12 

C CHECK  TO  SEE  IF  HE  HAVE  CORRECT  NUMBER  Cr  AR0UMENT3 

TRAN 

13 

C »»»«» 

TRAN 

14 

IF(NflROS.Or.lO.DR.N(IP,DS.LT.0J  00  TO  210 

TRAN 

IS 

C aaaaa 

TRAM 

IS 

C CHECK  TO  SEE  IF  DLL  ARGUMENTS  ARE  1HTE0EKS 

TRAN 

17 

C aaaaa 

TRAN 

10 

JaNAROS 

TRAN 

13 

CALL  CKINOCUl 

TRAN 

20 

IF(U.NE.O)  00  TO  830 

TRAN 

21 

C vaaaa 

TRAN 

22 

C CHECK  TO  GEE  IF  01hEN3J0NS  ARE  CORRECT 

TRAN 

23 

C aaaaa 

TRAN 

24 

IFINARDS.EO.Ol  00  TO  230 

TRAN 

ts 

irtNnivOS.ER.ip)  co  to  20 0 

TRAN 

26 

ininR0S(3J.EQ.IflaCS10-L211  00  TO  230 

TRAN 

27 

00  T»  830 

TRAN 

20 

200  If‘(  IAR0St3)  .EiMAROGJ  4)  .AM0.IAR03(9).EQ.IARCG{9-t2)  1 00  TO  230 

TRAM 

23 

00  TO  030 

TRAN 

30 

C aaaaa 

TRAN 

31 

C CHECK  TO  SEC  JF  OIMENOIOHS  ORE  CUT  OP  RANGE  AND 

TRAN 

32 

C FIHO  AOURESGEG  OP  MATRICES. 

TRAII 

39 

C aauaa 

TRAN 

34 

230  IFINflRDS-01  240.230,320 

TRAN 

3S 

240  inROSnOlsIARCStOl 

TRAN 

30 

IMOiUOleltlKOSm 

TRAN 

37 

IflROSlfwU'lBjA.U'BISl 

TRAN 

TRAP 

38 

KINOMOIaO 

39 

IFU2. 1*0.11  03  TO  2S0 

TRAP 

40 

inRoarnsiAiiostai 

THAI 

41 

on  TO  2G0 

TRAP 

42 

2S0  JAROSini^IARtr.lOI 

TRAN 

43 

2 CO  HUtOSCftlsJlMOSIB) 

TRAN 

44 

IARCS(SlaJR[vGSt4) 

TRAN 

43 

.lAROSt  4 lslflROSO) 

TRAN 

40 

* CO  TO  350 

TRAN 

47 

280  00  300  Isl.7 

WAN 

40 

IHnlO-I 

TRAN 

43 

300  IilRCGtllunsIMOSUM) 

TRAN 

SO 

320  lAROSUDalAROSlLSaO) 

TRAN 

SI 

IAROSI 12  JulAiUkU  11) 

TRAN 

02 

UaS 

TflrtH 

S3 

CALL  MTXCtift(J) 

TRAN 

04 

JFtJ-1)  <50.830.350 
980  CALL  EKR0RU7) 

RETURN 

210  COLL  ERROR! 101 
RETURN 

450  CALL  PLDR 

lFtNFLnO.EO.il  RETURN 
INCfisl 

IFtL2.Efl.il  00  TO  00 
miOlolflRGS(fl) 

INCXtsl 
iNCtteNKOM 
CO  TO  00 
80  INCtlal 
INCXaNROll 
lEHOIsIARCSt?! 

00  lFflEtmi.LE.151  00  TO  05 
CALL  ERR0R124) 

RETURN 

95  IWRKXHaiRRGStBl 
lARCfHMflROSOl 
00  120  Jal.lEfllll 
RARItnilalAROStn 

oo  no  iai.inifous 

MARitRwHARKAH 
URRitXsIiHRKXH 
fid  1=0. 

00  100  Hal.lAROSO 
m i taut  x i*RCt  nmmxiuRCt  wuiwii 
NANKXaHARKX*  1 1ICX 

loo  tKMAumw.tR  unco 

110  UfiRmisMARKRlUtlliOII 
CALL  UCRHiKJ.21 
120  HnRKXNaiHMNtMNCH 
00  100  tlal.IEIIU! 
RflRKXthltlROStB) 

CALL  «CKniiCK,l  1 
DO  1F0  Isl.lflROSO 
160  HOLUtlMKt) 

00  ISO  dni.XEHOl 

WfttJXXsMflRKXH 

fllUlaO. 

00  140  I«l,lflR089 
fUdlallBLOt  1 
140  tHWKXt;)‘ARitX«X.Ti;X 
iso  mwitxihitoaftiuHioai 
100  CALL  0CH«IUK*1&UD1.2J 
llulEtiOl*! 

C mmw 

C STORE  RLmTC  IN  tiONKSNEtt 

c 

ICHsIARBGIO) 

00  820  Jal.ltm 
CALL  OCAAtUR.l) 


TRAN 

55 

TRAN 

SS 

TRAN 

57 

TRAN 

S3 

TRAN 

53 

TRAN 

60 

TRAN 

01 

TRAN 

62 

TRAN 

63 

TRAN 

64 

TRAN 

OS 

TRAM 

CO 

TRAN 

67 

TRAN 

60 

TRAN 

60 

TRAN 

70 

TRAN 

71 

TRAN 

72 

TRAN 

73 

TRAN 

74 

TRAN 

75 

TRAN 

76 

TRAN 

77 

TRAN 

78 

TRAN 

73 

TRAN 

00 

TRAN 

01 

TRAN 

02 

THAN 

03 

TRAN 

04 

TRAN 

35 

TRAfl 

80 

•SRAM 

87 

TRAN 

00 

TRAN 

89 

TRAN 

30 

TRAN 

91 

TffAN 

32 

TRAN 

93 

TRAN 

34 

TRAN 

85 

TRAN 

SO 

TRAN 

37 

TRAN 

33 

TRAN 

39 

TRAM 

100 

TRAN 

101 

TRAN  102 

TRAN  103 

TRAN  104 

TRAN 

lO'j 

TRAN 

100 

TRAN 

107 

IRAN  100 

*n 


I C»I CM 

oo  eon  isi.ie.'ioi 
Rcuc)=nm 

ICsIC*HROH 
600  CONTINUE 
ICIhlCHtl 
020  ItalUl 

GO  TO  840 
630  CflIX  ERROR!  31 
640  RETURN 
END 
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TRIM  109 
TRAN  no 
TRfln  m 
TRflN  112 
TRAN  113 
TRAN  114 
TRAN  US 
IRAN  116 
TRAN  117 
TRAN  110 
TRAM  110 


I 

4 


I 


i 


l 

I 

x 

■) 


i 


.>1 


i 


■‘3 

I 


i 

i 


286 


StlOROUTINE  VASCONINflHE) 

CORDON  / BLOCKfl/Mfi&E.H .KflR0C77)  .KflRG,llR0.fiR02.NEHCD{  13),KR0tM0 
l.NEHCOSUO.Sl.KSAYE.NSflYE.NFLflO 
0IBEN8I0N  MM1SI 2) .ill  12) 

DATA  tim.Nm.mj).t!H>.Km.N(G).N(?).Ht8}.Nt9J.N()Q).N(U>. 

1 Nn2)/107CS.lC0Ja.lS787.174S3, 10223. 1S3S4. 1377. 5*0/ 

c 

C THIS  SUBROUTINE  IS  USED  TO  LOCATE  ONE  Of  THE  VARIABLES* 

' c Ham.v.u.‘A,rtz 

c 

00  10  lttal.0 
1:  lit 

inNf!ltEm.EC.mi).flN0.{JRtit,(2).EQ.mi*6))00  TO  20 
10  CONTINUE 
1*0 

20  flfICsl 
RETURN 
END 

SUBROUTINE  VECTOR 1 ft.  J 1 

COitllOil  / 0LCC1U)  / RC(2<S3l*innCS(63)*K!NOf39)»AROTAO(5l)iNlUinX# 
1 NRON«NCOL  > tlRROS « VKXYZ  ( 6 1 
t 

C’  THIS  SUBROUTINE  STORES  TRS  VALUE  OF  0 III 

C EACH  Itnu  OF  THE  COLUMN  6TART1N0  AT  J 

C OQM><  TO  HNNRX. 

c 

m nrihw  .eo.  o i oo  to  20 
lieu  twin*  - 1 
00  10  I • J.  R 
to  RCt  I » a A 
20  RETURN 
END 


VflRC  1 
VflRC  2 
VflRC  3 
VflRC  4 
VARC  B 
VflRC  8 
VflRC  7 
VflRC  8 
VflRC  8 
VflRC  tO 
VflRC  1) 
VflRC  12 
VflRC  19 
VflRC  14 
VRRC  IB 
VflRC  16 
VflRC  17 
VflRC  IB 
VECT  1 
VECT  2 
VECT  3 
VECT  4 
VECT  5 
VECT  6 
VECT  7 
VECT  8 
VECT  8 
VECT  10 
VECT  »1 
VECT  12 
VECT  19 
VECT  14 


;! 

1 


i 

i 


j 


1 

i 


1 


k 


■i 


1 


1 


r 

i 


uuuu 
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CUDROUTINE  HORKO  H>) 

COIIIiaM  / 0L5CK0  / nCl24Sfll.IARMt631.KIN0I33).AKGTfla<511.HRnfiX. 
1 UROM.WCOL.RARGS.VMXYZtSl 
COntlON  KEY.IOVLY.ITYi'E 

01  REUS  ION  lSRY(0).4KflYt3) .3ET(0.5).TEXT( ICO) 

THIS  fiUORQUTINE  IS  USED  TO  016  ’.AY  A SECTION  OF  THE 
NORKSHtET  OH  THE  2250  SCREEN. 

LT(I  .U)=(4-l )bOO*I 
NOUHsK 
1 KEH=KEY-3 
CALL  GERAStlOOl 
URITEt flOUH, SOI  HEM 

00  FORRAT ( / • SOX . ’ MORKSHSET  PftRTMOI 
CALL  FETCH!  TEXT.  t!CF»  *.93) 

CALL  GKOPLY!  TEX  T..NCF.  4.38) 

1Ao41 

IFIKEY.LT. 10)  Ifiat 
IDaIA*33 

4A-6nU30t KEU-1 .0)*1 

jD=jn+4 

4Y=0 

00  0 4K«yjn,4Q 
4Y=JY*1 
0 4JJfiYI4YI=42 

Mwmtiomi.94)  oray 

04  roRnoTi/.aox.’c  o l u n 11  svn.4lM) 

CALL  FETCH!  Tfc'.XT .NCP.480) 

CALL  A.mYIYFXT.HCF.483) 

00  0 IsIA.lB.O 
IPTsU7 

IteO  • 

00  10  IXaMPT 
IY  s « ♦ I 
IAAYUY)cIX 
4Y«Q 

00  10  0=4A.00 
4Y*s4Y»l 

10  6ETUY,JYJs;TcaTtIX,.in 

MRITKfnOUl.OU)  < IRAY! IN) fTGEIUH.4IU.4thl «5)  .lltal .0) 

05  FORHOT! 12.5014.0) 

CALL  FETCH!  TEXT  «tlCi%#459) 

CALL  C.'Oi'LY! YLXT.KCF.ftSO) 

0 CONTINUE 

CALL  CRIVLYT*  M.493) 

CALL  (VI'.VLY!  * M ,*<)*.)) 

CALL  CHOI’LYl  ’ M.4U41 

oonsmai  i 

E«0 


HOAX  1 
UORK  2 
MORI!  9 
H3RK  4 
UORK  5 
HtfRK  6 
worm  7 
IJORH  8 
WORK  9 
HORN  10 
WORK  11 
HARK  12 
UORK  19 
UORK  14 
IIORK  15 
HORN  16 
NORK  17 
UORK  10 
NORK  19 
NORK  20 
WORK  21 
UORK  22 
NORK  23 
NORK  24 
NORK  25 
UORK  20 
UORK  27 
UORK  20 
MARK  20 
NORK  30 
NORK  31 
UORK  92 
NORK  33 
NORK  34 
UORK  35 
NORK  36 
NORK  37 
NORK  39 
M'JRK  33 
IIORK  40 
NORK  41 
UORK  42 
UORK  43 
UORK  44 
UORK  43 
UORK  40 
MO.m  47 
WORK  49 
UORK  43 
UORK  CO 


anno 


ctmnouTifie  xecute  xecu 

COUHD'I  / BLtfCttfl/HC:0£tll  .KRRD(77)  <KRR0,RR(}«RftG2,KEUC0(19)  .KRUEHO  XECU 
i.KEMCD6U3.S).S«i.T/e.N59Yc.tlPLfiO  XECU 

COHKOa/OLOC.-IE/NRi'.t- U J .LI  .L2.ISRFLD  XECU 

cohhon  neY.iovu.iTVPE  xecu 

xecu 

THI6  6UCG0UTIHE  16  UGED  TO  PR68  CONTROL  TO  THE  SUBROUTINE  TO  BE  XECU 
USED  IN  EXtCUTIflO  0 PARTICULAR  COKHRNO*  XECU 

XECU 

SO  IF  ( U .LE.  90  1 00  TO  1100.500.800, 1100.1200.1300. 1060.1CCO»1700XECU 
1.1000. 2000. £100.2700.2300.30001. LI  XECU 

SCO  COLL  RESET  . XECU 

CO  TO  9000  XECU 

500  COLL  REflOX  XECU 

CO  TO  0000  XECU 

000  COLL  HXTS  XECU 

00  TO  8000  XECU 

1100  CRLL  RR1TH  XECU 

CO  TO  0000  XECU 

1200  CRLL  FUriCT  XECU 

oo  to  Qooo  xecu 

1SOO  OO  TO  ( lSOl.ia02l.L2  XECU 

1301  COLL  CEHER  XECU 

CO  TO  saoo  XECU 

1302  CALL  GET  XECU 

GO  TO  0000  xecu 

1530  CRLL  HOP  XECU 

GO  TO  0000  XECU 

1000  CRLL  INVERT  XECU 

Gn  TO  3000  XECU 

1700  1PI  L2  .ufl.  2 1 00  TO  1720  XECU 

CRLL  HHULT  . XECU 

00  TO  0000  XECU 

1720  CRLL  HRRICE  ' XECU 

CO  TO  0000  XECU 

1300  CRLL  MATRIX  XECU 

GO  TO  0000  * XECU 

2000  CALL  HSCROH  XECU 

GO  U JOOO  XECU 

2100  00  TO  ( 2101,  £101.  2103,  2104.  2104,  £104.  2104.  2100.  2100*  XECU 

1 2110.  2111.  £112,  21 13 •2100*3000) »L2  XECU 

2101  CRLL  PflORGH  XECU 

GO  TO  POOR  XCCU 

2100  CRLL  DEFINE  XECU 

CO  TO  QOOO  XECU 

2104  CRLL  EXTliEH  XCCU 

OO  TO  OCOO  XECU 

2100  CRLL  GOitOEO  XECU 

CO  TO  f.000  XECU 

21)0  CRLL  CHOSE  XCCU 

03  TO  6000  XCCU 

till  CRLL  EXCI1W0  XCCU 

CO  TO  0UOO  XECU 


1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 
10 
20 
21 
22 

23 

24 

25 
20 
27 
20 
20 
SO 

31 

32 

33 

34 
33 

36 

37 

39 
30 

40 

41 

42 

43 

44 
43 
4G 
47 
40 
40 
60 
01 

52 

53 


tev.lr»t*nwv< 


00  TO  9000 
2113  COLL  CHANGE 
GO  TO  9000 

2300  00  TO  t 2310.  2010.  2310.  2310.  2310*  2320.  2320.2320. 

1 2390 1.L2 
2310  CniL  1)1602 
00  TO  9000 
2320  COLL  HOVE 
00  TO  9000 
2330  CALL  POUOTE 
00  TO  9000 
2700  CnU.  EXt'COIl 
CO  TO  COCO 
3000  COLL  STflTO 

6000  lFUtF  LRO.EQ.l  <00  .KEY  .EG .31 1 GO  TO  8010 
K6nVE=KSflVEtl 
DO  0001  111=1.18 

8001  MEKCDSt  III  ,KanVEl»W!l!C0r  im 
IFCK6nve.UT.Gl  00  TO  9010 
IFM0VLY.0T.4ni  GO  TO  3003 
8004  lllUTEt  ((SAVE 1 10VLY 1 HEHCOS 
KSGVEcO 
6010  RETURN 
8003  COLL  PROMRtll 

iriKEV  .EO.  31)  RETURN 
IOVLY  r:  1 
00  VO  8004 
END 


XECU  85 
XECU  50 
XECU  57 
2320*  2330 .XECU  50 
XECU  53 
XECU  50 
XECU  01 
XECU  62 
XECU  63 
XECU  64 
XECU  6F 
XECU  66 
XECU  67 
XECU  CB 
XECU  99 
XECU  70 
XECU  71 
XECU  72 
XECU  73 
XECU  74 
XECU  75 
XECU  76 
XECU  77 
XECU  70 
XECU  70 
XECU  00 
XECU  01 
XECU  02 
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SUBROUTINE  XOIINIT  XflHN  1 

COMMON  / QU'ChA/Mt)0E.M.KriIiR(77l  «KORO*flROtflRG2»NEMCOt  13)  «KR0Ef40  XOHH  2 

1 •HCIICOSt  13 .5 ) iKSfiVE «HCflVu.NFLOO  XOHN  3 

COMMON  / ELOCICIt  / RCt2-!'J01,iIf!RG3t83),!aND(33).flR&TfiaCDlJ.Ni'»tflX.  XONII  4 

l rmou.HCOL.HMiics.VMXYats)  *onn  6 

COHMJH  KET.IOVLY.ITYl’E  XOHN  6 

C XOMN  7 

C THIS  SU3RCUTINS  IIIITJflUZES  SOME  CO, ‘(STOUTS  WHICH  HILL  OE  XlIHH  0 

C USED  BY  THE  SYSTEM*  XOIIN  8 

C XOHM  10 

lOVLYsl  XQKN  11 

KSflVEoQ  XOMN  12 

HODfc’nl  XOIIN  19 

NRimXsO  XOIIN  14 

RETIIHH  XOIIN  15 

END  XOIUI  16 


non  ooo  nnnnnnnnnn 
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CWM8UT1NE  xnsot  T , K . Y . KWJ  1 

i..‘:-I0N  / 8U3CKO  / RC(24S9J.IRRGCC691.KIN3(391.nROTn^5n.NRMX 
1 N tfJl.NCOL .WRKC3 . VHXYZ  l S 1 
0M£N6I0»  T(  2 ) 

THIS  SUBROUTINE  IS  UG£0  TO  GET  Y TO  THE  V.1UIE  ItiOICnTEU 
KttO  IS  USED  TO  INDICATE  THE  TYPE  OP  THE  f.R  WHENT I REflUl, 

K 18  USED  TO  INDICATE  EITHER  OH  ERROR  OR  THE  THE  LENGTH 

K 10  RETURNED  0 IF  flRO  1H  GTHTEIIENT  IS  ONE  M080  LONO 
K IS  RETURNED  1 IF  flRO  !«  6TDTEHENT  IS  TNG  HONOR  LONG 
K IS  RETURNED  -I  ERROR  HUNGER  > IF  ERROR  OCCURS. 


41 


44 

40 


eo 


70 


IT  s -Tt  1 » 

IF!  IT  •LT*  10  I CO  TO  GO 
* •ROU.COU'*  ENTRY 
IT  =IT  - 0203 

1F(  IT  .OT.  0 .(1N0.  IT  «L£«  MROSI  1 00  TO  41 
K * -10 
CO  TO  44 

UUtCSf  GO  1 a flSGI  TI2J  1 - 0192. 

HINDI  03  ) s 0 

CRM.  nCRt'GGI  m . J i 

I PI  4 «HE«  0 1 00  TO  40 

K « -11 

RETURN 

4 a J ♦ IT 

K(tO»  0 

IF!  TI21  .tT.  0 ) UNO  si 

Y a RCI  J «*  1 I 

Ksl 

GO  TO  44 

H8HAX  « V . II  $ X * 1 .1  • REFERENCE. 

IU  « IT  / 2 
UNO  s J|  - E u JU 
K a 0 

iri  iu  .te.  i i oo  to  io 

t n VMXYE!  1U-I  1 
00  TO  44  ^ 

V*  IKUIRX 
NO  TO  44  . 
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XPNO  0 
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XPNO  10 
XPHO  11 
XHIO  12 
XPNO  13 
XPNO  14 
XPNO  10 
XPNO  15 
XPNO  IV 
XPNO  10 
XPNO  19 
XPNO  20 
XPNO  * 21 
XPNO  22 
XPNO  29 
XPNO  24 
XPNO  23 
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XPNO  27 
XFN0  20 
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XPNO  30 
XPNO  31 
XPNO  32 
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XPNO  36 
XPNO  31 
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XPNO  39 
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I2<  9RONSOHIRG  MILITARY  ACTIVITY 


This  report  discusses  the  implementation  of  an  interactive  version  of 
the  National  Bureau  of  Standard's  OMNITAB  system.  This  version  has  been 
adopted  to  work  under  a Graphics  Monitor  System  on  an  IBM  2250  terminal, 
connected  to  an  IBM  360  or  370  central  processor.  Several  routines  have 
been  added  or  adapted  which  make  the  system  especially  useful  for  sta- 
tistical applications,  and  as  an  instructional  tool.  The  immediate 
availability  of  displays  of  sections  of  the  worksheet,  after  each 
instruction, is  the  central  feature  of  this  adaptation.  Several  examples 
of  statistical  applications  are  included  in  this  report.  , 
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